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INTRODUCTION 


The User Programming Language ClJPL) has been developed specificatly 
for writing the system software for the 8 1700 Series. UPL is a 
high=level» problem=oriented language that allows sophisticated 
computer programs to be written with relative ease. 


This reference manual has been designed and written for experienced 
programmerse It can be used to learn the lLanquages howevers if the 
programmer is familiar with bit*manipulation concepts and lLanquage=> 
independent principles of programming. 


UPL is a compilerslLevel language that increases programmer pnroduc@ 


tivity and solves complex problems. The resultant system software 
reflects this increased productivity. 


Xiii 


SECTION 1 


LANGUAGE CHARACTERISTICS 


GENERALS: 


The type of problems to be solved by UPL has required a series of 
functions and constructs that differ significantly from most other 
problem=oriented languages. A few of these differences are as follows: 


ae Powerful bit and character=string functions. 

be Binarytonly arithmetic functions. 

ce No JUMP or GO TO instruction. 

de. Rewentrant programs. 

ee. Recursive procedures (subroutines). 

f. Scope of datasnames contained within procedures. 

ge Dynamic storage allocation for data™names at execution time. 
he Singlespass compilation. 


All programs that are written in UPL source language must be processed 
by another programs the UPL Compiler. The compiler transforms the 
source statements into a virtual machine form called S*code. The 
S™code is then executed interpretatively by a set of microinstruction 
routines (firmware). 


YVEL-PcQCERILE Ss 


A UPL Program has a distinct pattern or format that specifies the 
relative locations of the two statement types» declarative and execut= 
able. Declarations provide the information that is needed to allocate 
storage or link together various elements of a programe. Executable 
statements specify the functions or transformations to be performed 
upon the contents of storage. 


Statements are composed of symbols that» in turn» are composed of 
letters» digits» and special characters. Symbol strings are called 
operands» operators» or control functionse The UPL syntax is concerned 
with the correct creation of symbol strings and the relative placement 
of the strings to form declarative or executable statements. 


VRLPBOGRAM.EQRUAT.s 

UPL Programs are segmented into Logical subdivisions called procedures. 
Each procedure begins with a head statement and terminates with an end 
statement. Procedures have a definite relationship to other procedures 
within a program» either side=bysside Cnarallel) or subordinate 
(nested). This ordering inherently defines the scope of each procedure 
and the range over which a procedure can call or be called. 


PROCEDURE FORMAT. 

All procedures have a rigid internal structure. The procedure 
structure is as follows: first» datasname declarationss seconds all 
nested procedures; and last» all executable statements. The structure 
of nested procedures must be exactly the same. 


METAL ANGUAGES 


A metalanguage is a language that is used to describe other languages. 
Symbols in the metalanguage are called metalinguistic Symbols. Meta*= 


1-1 


Linguistic symbols are used in forming metalinguistic formulas. The 
formulas define the rules of allowable sequences of characters and symm 
bols in the Language being descrited. Thus» a set of metalinguistic 
formulas defines the syntax of a language. 


The following set of metalinguistic symbols is used throughout this 
manual to describe the UPL syntax. 


KEY WORDS. 

All underlined» upper case words are key words within a statement and 
ace-Ceguiced when the functions they are part of are utilized. Their 
omission causes error conditions at compilation times. Examples of key 
words are as follows: 


literal l . 
LE data*name ? THEN statements CELSE statements] 
syaresclon) 


The key words are IF» THEN» and ELSE. (Refer to paragraph on brackets 
for exception.) 


LOWER CASE WORDS. 

ALl lower case words represent generic terms that must be supplied in 
the specified format position by the programmer. Literals datasname»s 
expressions and statement are generic terms in the preceding example. 


BRACES. 

When words or phrases are enclosed in braces ({ })» a choice of one of 
the entries gust be made. With reference to the preceding example» one 
of the items Cliteral» datatnames or expression) gyst be included in 
the statement. 


BRACKETS. 

Words and phrases enclosed in brackets ({€ ]) represent optional por 
tions of a statement. In terms of the preceding examples the CELSE 
statements] ¢ap be included in the statement as an options otherwise» 
it is omitted. 


CONSECUTIVE PERIODS. 

The presence of an ellipsis €. « «-) within any format indicates that the 
syntax immediately preceding the notation can be successively repeated» 
depending upon the requirements of problem solving. 


PERIOD. 
The periods or dot» is used only to concatenate parts of data™names» 
for example» 


WORK -SPACE.ONE. 
TYPE CLENGTH). 


The type Clength) phrase always represents the following syntactical 
notations: 


ELXED 

CHABACIEB Clength) 
BII Clength) 

Any mark or symbol in a metalinguistic formula that is not one of the 

metalinguistic symbols denotes itself. The juxtaposition of symbols in 

the formula denotes juxtaposition of the elements in the language being 

described. 


Metalinguistic formulas give an accuraté and detailed description of 
the legal sequences of symbols within a lLanguagee They do nots how- 
ever» assign meaning or indicate the events performed by the statements 
in the target lLanguagee Such a description is called the semantics of 
a Language. Therefore» for each syntactical description of an SDL con* 
struct within this manual» a semantics portion also appears. 


BAaslC.aYubOles 


The UPL character set is composed of the following: 


ae The upper case letters A through Z are used to form 
names and strings. 


be The digits 0 through 9 are used to form numbers in 
literals and in strings. 


ce The arithmetic operators + Caddition)» = (subtraction), 
* (multiplication)» and / Cdivision) provide mathematical 
capabilities. 


de The relational operators > or GTR (greater than)» < or LSS 
(less than)» = or EQL Cequal tod» # or NEQ Cnot equal to)» 
> or GEQ (greater than or equal to)s and < or LEQ Cless 


than or equal to) provide comparison capabilities. 


Ce The togical operators are ANDs OR» EXOR Cexclusive OR)» and 
NOT Cnegation). 


f. The functional operators CAT €ctoncatenation)» MOD Cresults 
in the remainder of a divide)» and := or @ (Creplacement) 
provide additional functions that are required. 


ge. The following punctuation defines the function of each 
symbol that is used in UPL. 


ayvobel Qefioitieon | Use 
° Period or dot Concatenation within data names 
’ Comma Separator for items 
; Semicolon Delimiter for statements 
( Left parenthesis Enclose parameter Lists 


eyabel 


/* 


*/ 


Qefioitieoo 


Right parenthesis 


Quotation mark 
Pound sign 


Space or blank 


Arrow 
Colons arrow 


At sign 


Colons equal 
Colons colons equal 


Percent sign 
Slash» asterisk 
Asterisk» slash 


Question mark 


Invalid punch 


Dollar sign 


Ampersand 


Use 


Enclose parameter lists 


Left and right character 
delimiter 


Left and right define text 
string delimiter 


Datasname delimiter 


Assignment or replacement 
(delete left) operator symbol 


Replacement (delete right) 
operator symbol 


String delimiter 


Assignment or replacement 
(delete left) operator symbol 


Replacement (delete right) 
operator symbol 


Remainder of card iS a comment 
Beginning of comment 

End of comment 

In column 1 of a 96"colUMN 
card» indicates an MCP control 
card 

In column 1 of an 80"coluMmn 
cards indicates an MCP control 


card 


In column 1» indicates a 
compiler control card 


In column 1» denotes condi=* 
tional source code inclusion 
control card 


BESERVED_dQBQSe 

UPL contains a set of character stringss called reserved wordss 
with presassigned meanings. Three classes of reserved words are 
defined. 


Class I reserved words have premassigned meanings throughout the pro= 
gQgam» for examples DECLARE» PROCEDURE» DO» END. Incorrect usage of a 
class I reserved word results in a syntax error. 


Class II reserved words can be remassigned meaningse They then lose 
their original meanings for the duration or scope of their new assign= 
ments for example» CONV» DECIMAL» LENGTH. Resassignment of a class II 
reserved word results in a warning message» but no syntax error. 


Class III reserved words have presassigned meaninas only within some 
input/output statements» for examples DISK» LOCK» PRINTER» TAPE. 
Incorrect usage of a class III reserved word within a specific UPL 
statement results in a syntax error. The words» when used in input/ 
output statements» must appear as shown in the syntax and cannot be 
DEFINEd. The usage of a class III reserved word in any other portion 
of the program is considered as a separate and distinct usage and does 
not result in a syntax error. 


A helpful list of all classes of reserved words is given in appendixes 
A» B» and Ce , 


LANGUAGE. STALEMENT.IYGE oe 


There are seven types of statements in UPL. Their names» forms» and a 
brief description of their functions are as follows: 


Nage Eoca Evoctieo 
Assignment Data™name 2= expressions Performs calculations and 
assigns a value to a data= 
name 
Declaration DECLARE data=name Reserves space fors and 
attributes; assigns attributes to» 


data™names 
DECLARE datas™name 
REMAPS data™name 
attribute list; 


Conditional IF expression THEN state> Controls the executicn of 
ments ELSE statement; individual statements or 
groups of statements 


Control DO FOREVER names; Iterates» groups» or trans= 
statements fers control to sets of 
statements statements 
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Nage 


Procedure 


Simple 


Compiler 
information 


EUNCTIONSs 


Eocg Eyvogtioo 


statements 
END name; 


CASE expression; 
statement, 
statement> 


statement; 


END CASE3 

RETURN; 

UNDOS 

A procedure is a set of Defines a subset of the 

statements. program to be used as a 
subroutine 

BUMP data*names Performs some simple 

DECREMENT datasname;s function on a data*name 

DEFINE Assists the programmer in 
preparing and comriling a 

FORWARD PROCEDURE program 

SEGMENT 


There are several functions in UPLs they have been incorporated into 
UPL to facilitate ease of use and speed of executione Examples of a 


few functions 


Nags 
SUBSTR 
SUBBIT 
LENGTH 
CONV 
MOD 


CAT 
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and a brief description of them are as follows: 


Euostigo 
Addresses substring within a character field 
Addresses substring with a bit field 
Obtains the length of a substring 
Converts between data types 
Obtains the remainder of a divide operation 


Concatenates substrings 


Nawe Ewuoctieo 
BINARY Converts from printable decimal to binary 


DECIMAL Converts from binary to printable decimal 


The use of each function is described in section 8. 


a 


SECTION 2 


BASIC CONCEPTS 


GENERALS 


UPL has a number of basic concepts that a programmer must understand in 
order to fully utilize the languagee These concepts are explained in 
the following paragraphs. 


DATA-CONCECT 2 


A datasname is the symbolic name associated with a memory space. The 
datasname is DECLAREd with a set of attributes describing the space and 
how it is to be manipulated. An occurrence of a datasname references 
the contents of the memory space with its associated attributes. 


There are three declarable classifications of data in UPL. 


FIXED DATA TYPE. 

The type FIXED data format is a signed 24*bit field. It is the primary 
computational form in the languagee The most significant bit is the 
signe A 0 denotes a nositive numbers a 1 denotes a negative number. 
The remaining 23 bits are the value in binary. If the number is nega 
tives the value is in the complement notation of 2. The maximum and 
minimum values are 2» raised to the 23rd power 71 (€8»%388»607 in 
decimal) and 2s raised to the 23rd power (783885608). All calcula= 
tions are in binary» and any overflow beyond the Largest expressible 
value is ignored. 


BIT DATA TYPE. | 

The type BIT data format assumes a string of binary digits that can be 
manipulated or interpreted in any manner the proarammer chooses. 6it= 
strings may be declared from i to 652535 bits in length. Bitsliterals 
are also available in iv» 2» 3°» and 4*bit groups. Type BIT data can 
be used in arithmetic operations and is always considered a 24-bit 
positive numbers that is» the maximum and minimum values are 2 raised 
to the 24th power *1 (€162777%215 in decimal) and 0O (zero). If the data 
item is greater than 24 bits» the high order positions are converted to 
O*s during arithmetic operations. Comparison operations are performed 
on the whole bit=string in a right=tosleft manner with leading O's 
padded on the shorter strinas that is» 110 compares less than 1000. 


The datasname that is declared a bit=string manipulates the whole 
string. Substrings of the datasname can be manipulated with the SURBIT 
function. 


CHARACTER DATA TYPE. . 

The type CHARACTER data format is an 8"bit=string grouping defined as 
standard EBCDIC. Atl input/output CI/0) peripheral devicess excluding 
datamcommunication devices» send and/or receive in the CHARACTER for- 
mate Arithmetic operations can be performed with CHARACTER datas hows 
evers the binary value of the CHARACTER bitestring is its binary 
arithmetic value. That is» a 0 character from a peripheral device has 
a binary value of 240 (11110000). Also» only the least significant 
Cright*most) 24 bits of a CHARACTER data™name are used in arithmetic 
operations. 


All hightorder bits are converted to O's (zeros). Comparisons are 
of two classes: 


ae Charactersto=characters which is compared left*to=right 
with EBCDIC spaces Chexadecimal 40) padded to the right 
of the shorter string. 


be Character to any other cata format» which is compared 
rightetortleft with binary O*s padded to the left of the 
shorter string. 


Substrings of character=strings may be addressed with the SUBSTR 
function. 


DATA TYPE CONVERSION. 
Several conversion functions in UPL can transform from one data 
type to another. They are CONV» BINARY» and DECIMAL. 


The same memory space can be declared as being of different data types 
each with unique data=names by the use of the REMAPS option and/or the 
structured options in the DECLARE statement. 


ARRAYS. 

An array is a repetitive set of dataselements. The data=name becomes 
the name of the whole arrays» and individual elements in the array are 
addressed by subscripting the datastname. Arrays are single dimen= 
sionals that is» they allow only one value in the subscript. The array 


declaration (€*) can be used with all three datastypes. 


DATA STORAGE ALLOCATION. 

Data storage allocation is divided into two distinct periods of time. 
The first is the compiler=time encounter of a DECLARE statement in 
which the compiler generates the code that performs the runstime allo- 
cations. The second occurs at object runstime when the actual storage 
allocations are performed upon entrance into a procedure and then only 
for those datasnames DECLAREd in that procedure. When the procedure is 
RETURNed froms that is» exited» the physical memory locations again 
become available for allocation to any datasname that may be DECLAREd 
in the next procedure to be entered. That is» storage allocations and 
demallocations are performed during entrance to or exit from each pro- 
cedure at object runstime. The same physical memory space cans there= 
fore» be used many times during the execution of a program (dynamic 
storage utilization). 


DUPLICATE DATA@NAMES. 

It is possible to have duplicate data=names in UPL that are not a 
compilestime error. This is true whenever the duplicate data™names 
are DECLAREd in different procedures. The occurrence of duplicate 
datasnames within one procedure is an error and results in a compiler 
error message. 


Duplicate datasnames do not interfere because they exist only within 


the scope of their procedures. The case occurs» however» when the 
procedure that contains the duplicate datasname is nested within the 
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procedure that contains the first occurrence of the datasname.e The 
Language resolves this conflict by referencing the most recent occur* 
rence of the datasname over the scope of the nested procedure. When 
this procedure returns controls the original datasname is again 
available. 


ASSIGNMENT: | 


The assignment operation moves the contents of one datasnames called 
the source field» into the memory space of another data=name» called 
the destination field. Alignment» truncations or padding is performed 
during the assignment operation and is controlled by the type and 
Length attributes of the data-=names involved. 


The type attribute divides alignment control into two cases. The first 
case is charactersto=characters» which aligns the data=names on their 
left=most or hightorder characterse The assignment is» then» performed 
in a leftetotright order until one of the fields is exhausted. If the 
destination field is shorter» the operation ends. If the source field 
is shorters the destination field is padded» on its right» with space 
characters Chexadecimal 40). 


The second case includes every other possible combination of data 
types. The fields are aligned on their right=most or lLowtorder bits» 
and the assignment proceeds from right*tozleft until one of the fields 
is exhausted. If the destination field is shorter» the operation ends. 
If the source field is shorter» the destination field is padded with 
binary O's. 


BEBLACEMENTs 

The replacement operator is similar to the assignment operator because 
both transfer data into a data™name and perform alignment» truncations 
and padding during the transfer. — 


Differences between assignment and replacement operators involve use of 
a machine register and completion or incompletion of the source lan= 
guage statement. The assignment operator clears the register as it 
moves the contents into memory ands thus» ends a statement. The 
replacement operators» however» does not clear the register as it moves 
its contents into memory. The value or address remaining in the regis 
ter gyugt be used in further operations until the assignment operation 
is executed or until the register contents are no longer needed. This 
case occurs with an expression evaluation and is used as a conditional 
indicator as in the IF or CASE statements. For example: 


X = A + (B 8= C)3 


The := symbol between data=names B and C is a replacement operator 
because a value or address of a value must be available to be added to 
data=name A. The := symbol between datasnames X and A» howeverys is an 
assignment operator because nothing remains after the operation to be 
combined with another terms that is» the source Language statement is 
completed. . 


“Exactly what remains behind ors more formally» not deleted after a 
replacement operation is under control of the programmer. That is» the 
“programmer can choose to leave behind either side of the replacement 
‘operations which is then combined with the next term in the expression. 


There ares therefore» two forms of the replacement operator: the 
delete left forms := » and the delete right forms» ::= . Normal usage 
is the delete left form. Usage of the delete right part is often con- 
venient in parameter passing=to procedurese For examples if the pro- 
cedure SQF requires a parameter of six characters and the programmer 
would like to use the procedure with a 4=character datasname» X4» the 
programmer can declare or use an existing 6"™character datasname» X6» 
and do a replaces» delete right part (::=) in the procedure call. For 
example» : 


RINGLESCASS COMEILER.s 


The UPL Compiler is designed to pass the source language only once. 
This design has several ramifications in the program structure of the 
source Language. 


A rigid sequence of statement types is required in order to guarantee 
that the proper information is available to the compiler at the proper 
time. All DECLARE statements» for examples» must appear within each 
procedure before any executable statements occur in that procedure. 
Also» each procedure must begin and end» in the view of the compilers 
before any executable statement in some other procedure can reference 
ite Procedures» therefore» have a range or scone over which they can 
be referenced and are active. This scope is dependent on when a prom 
cedure occurs» in the view of the compilers in what procedure nest it 
occurss and how deep it is in the nest. 


A special statement» the FORWARD statements» is available to resolve the 
problem of forward referencing a procedure that has not yet been seen 
by the compiler. 


Procedures cannot overlaps however» they can be-nested. Procedures 
also can be sidesby-side (Cparallel)» not nested» within an outer opro® 
cedures each of which can itself contain more nested or side=by"side 
procedures. 


PBOCEQUBES: 

A procedure is the basic structural element in UPL. It contains local 
data and the executable code for manipulating that data. It can also 
communicate values and/or addresses» that iss» parameters» to and from 
other procedures. A procedures in additions can manipulate any data in 
the other procedures that are within scope (global). 


A procedure is divided into the following five parts: the head 
declarations the data declarations» the nested procedure declarations» 
the executable statements» and the END statements» in that order. 


For example: 


HEAD DECLARATIONS 
DATA NAME 
DECLARATIONS 
PROCEDURE 
DECLARATIONS 
IN SAME 
FORMAT 
EXECUTABLE 
STATEMENTS 
END STATEMENT 


Procedures are analogous to subroutines in other languages. They 
execute repetitively the same set of statements by manipulating a 
different set of parameters on each invocation. 


The outer=most level of codes that is» the level not imbedded in any 
procedures» conforms to the format of procedures except that it has no 
head declaration and cannot» therefore» be invoked by a procedure. 
This outermost» procedureslike structure is referred to as the global 
level or lexicographical (Clexic) level 0 (zero). Each subsequent 
procedure has a lexic level=number greater than 0. 


PROCEDURE INVOCATION. . 

A procedure is invoked or called by use of the procedure=name in an 
executable statement. If the procedure has parameters» they must 
appear following the proceduresname and be surrounded by parentheses. 
The parameters associated with each call of a procedure are the actual 
parameters» and those within the procedure are the formal parameters. 


PARAMETERS TO PROCEDURES. 
A parameters=tosprocedures transfer is considered a special case of 
storage allocation at procedure invocation time. 


The procedure head declaration contains a datasname for every parameter 
that is passed. This datasname is called the formal parameter name and 
is used within the procedure to reference the passed informaticn.e A 
FORMAL declaration statement must follow the procedure head declaration 
and specify the type and attributes of the parameters. 


At compilestimes» code is generated to allocate memory space for these 
parameterse At runstimes» the memory. space is allocated and the actual 
parameter is loaded. Runtime comparisons of the actual parameter 
types and lengths against the formal types and lengths are performed 
only if the £ FORMAL.CHECK compiler option is specifiede A mismatch 
causes program terminatione A VARYING option in the FORMAL statement 
is available. It results in the use of the type and Length of the 
actual parameter as the type and length of the corresponding formal 
parameter on each invocation of the procedure. : 


ACTUAL PARAMETERS. 


Actual parameters are the datatnames or the values contained in the 
datasnames that are passed to procedures. They are matched ina left 
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to=right order with the formal parameters in the procedure head 
declaration. They also must agree in number with the number of formal 
parameters. 


FORMAL PARAMETERS. 

Formal parameters are the symbolic datasnames that are used in a 
procedure to reference and manipulate the actual parameters that are 
passed. 


PASS*BY*VALUE. 

The value of a data™name can be passed to a procedure. When the 
procedure is invoked» a copy of the value is loaded into the local 
memory space associated with the corresponding formal=name. 


A parameter always passessby“value as the result of an arithmetic 
operation upon the parameter or by surrounding the parameter with 
another set of parentheses» for examples 


SQRF CA + Bs A * Bo C€A))3 
The procedure SQRF has three actual parameters that all pass*by*value. 


Array elements can be passed=by“value or bysnamee The whole array can 
only be passed=by=name. The formal parameter declaration within the 
procedure can use the FORMAL.VALUE options the parameter then always 
passes*by*value. 


A pass@bysvalue has no texic level restrictions. An inner procedure 
can invoke an outer procedure that is in scope and pass to it the value 
of a datastname that is out of the scope of the outer procedure. 


PASS*BY*NAME. 
The memory=space address of a datasname used as an actual parameter 
can be passed to a procedure. Local space is not allocated within the 


procedures instead» the formal parameter is Loaded with the address as 
passede The procedure cans thens manipulate the original value as ref= 
erenced by the datasname. The procedure can alter this original value. 
This occurs only if the formal parameter is the object of a replacement 
or assignment operation during the execution of the procedure. 


The passsby*name occurs whenever the actual parameter is not involved 
in an arithmetic operation or surrounded by an extra set of 
parentheses» for examples 


SQRF CAs Be C + 2)3 


The actual parameters A and B are passed*bys*name and the C + 2 is 
passed=by"value. 


Notice that a passsbys™name has no lexic level restrictions. A 
procedure can pass the name of a datasname at a lower lexic level 
Chigher number) to an outer procedure at a higher lexic level C€lower 
number). The outer procedure eventually executes a RETURN to the 
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inner procedures howevers it had access to the memory space of a non 
existent data=sname and could have altered its valuee Notice that data> 
Name space continues to exist for every procedure invoked until that 
procedure executes a RETURN statement. This is true regardless of the 
lexic level or levels of any procedures invoked while a procedure 
existse Only those datasnames that are within scopes however» may be 
referenced. For example» a duplicate datasname at a lower lexic level 
inhibits the outer datasname during the time its procedure is active. 


ERQCEQUBE.IYCES: 


Two types of procedures exist in UPL: one that performs a set of 
statements and then returns controls called a regular procedures and 
another that performs a set of statements and returns a value when it 
returns controls» called a function procedure. 


REGULAR PROCEDURE. 
A regular procedure call is a complete executable statement. That is» 
its name and parameter list are followed by a semicolon. 


For example» 
SQROOT CABS)3 

is a regular procedure call. 

A sealer procedure may appear as a statement in the IF statement. 
IF ABS NEQ ZERO THEN SQROOT CABS)s5 


After the regular procedure executes a RETURN statement» control passes 
to the next sequential statement following the call. 


A regular procedure can communicate data by referencing global 
data-names. 


FUNCTION PROCEDURE. 

A function procedure call is considered a value and is used within 
expressions. It can be the source of a replacement operator (Con the 
right of the replacement sign); or it can be operated upon by any of 
the arithmetic or logical functions» that is» added to or compared to. 


When a function procedure RETURNS a values» it is used in place of the 
function call within the expression. The function procedure head 
statement contains a typeslength attributes» and the RETURN statement 
contains an expression. The value of the expression must have this 
typeslength attribute and is then passed back into the invoking 
expressione 


For example: 


PRICE := COST.SQFT * SQRT C(LGTHs» WDTH); 


A value is RETURNed from the SQRT CLGTH»WDOTH) function call and 
multiplied by data-name COST.SQFT.« 


And: 


IF SUBSTRCMSG.IN2023) EQL "YES" THEN eee 
ELSE eee 


‘eo Wwe 


The procedure MSG.IN accepts an input message from the SPO and returns 
a character=string that is tested for the first three characters equal 
to the word YES. 


A number of functions exist in UPL that may be used as if the 
programmer has written function procedures for them. These 
functions are described in section 8. 


LEXICQGRACUIC LEVEL. 


A lexicographic level is the compile=time relationship of each proce- 
dure to the outer level of the program. This outer level is referred 
to as Lexicographic level 0 Czero). ALL other procedures are nested 
within it and are assigned a lexicographic level=number representing 
their depth of nesting from level 0. Thus» in the following examples 
LEVEL 0 
ONEA 


ea 


ONEB 
TWOB 


THREEB 


procedures ONEA and ONEB are at lexicographic level 13 TWOA and TWOB 
are at level 23 and procedure THREEB is at level 3. 


The maximum lexicographic level is 15. That is» nested procedures can 
not exceed 15 levels in depth. There is no Limit» howevers to the 
number of procedures that can occur on any level or in any procedure. 


The naming of a procedure should not be confused with the procedure 
itself. The name of a procedure exists at some lexic level and denotes 
that a procedure is beginning with the next source language statement. 
This next source statement exists within the named procedure and is one 
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lexic level lower than the name of the procedure. That is» the name of 
a procedure exists one lexic level above the procedure that it names. 
This separation of the name and the procedure being named has 
significance in the concept of scope. 


aCQEEes 


Scope is the range within a program over which a data=name or 
proceduresname can be referenced. The scope of a name is a direct 
result of the lexicographic level of procedures and the storage 
allocation techniques employed. 


Before a procedure is invoked» the names declared within the procedure 
do not exist yet and cannot be referenced. After the procedure is 
invoked» the names within the procedure can be referenced. The format 
of procedures ensures that only those statements contained within this 
procedure or in global procedures are within scopee That iS» execut™ 
able statements within a procedure can reference the names declared in 
this procedure or in any outer proceduree For example: 


PROGRAM 


(LEXIC LEVEL 0) 


PROCECURE.X 


(L LEVEL 1) 


PROCEDURE.Y 


(LL 2) 


STATEMENTS IN Y 


STATEMENTS IN X 


STATEMENTS IN LEXIC LEVEL 0 


The statements in lexic level O may reference PROCEDURE.X but not 
PROCEDURE.Y because PROCEDURE.X has not been invoked ands therefore» 
the name of PROCEDURE.Y does not exist yet. § 


The statements in PROCEDURE.X cans howevers reference PROCEDURE.Y 
because the name of PROCEDURE.Y becomes available when PROCEDURE. X 
is invoked. ; 


The statements in PROCEDURE.X also can reference any names of data or 
procedures that are declared on lexic level 0. This implies that 
PROCEDURE.X can invoke itself» which is trues all procedures in UPL are 
recursivee Any difficulties encountered with duplicate names whether 
they be from recursive procedure invocations or just duplicate names 
within a nested procedure are resolved by the allocation of new space 
for the most recent occurrence of the duplicate name. Notice that the 
name of the whole programs the name of the lexic level O procedures is 
outside of lLexic level 0 and cannot be referenced from within the pro- 
grame That is» the program cannot be called recursively because its 
name is not within scope. 


Statements in PROCEDURE.Y can reference names within PROCEDURE.Y and 
PROCEDURE.X and on Lexic level 0O-. That iS» in this programs the state> 
ments in PROCEDURE.Y can reference any datasname and any procedure= 
namee Notice that the name PROCEDURE.Y exists when PROCEDURE.X is 
entered. That is» the name of a procedure is made available in its 
outer procedure. 


Several procedures can have the same lexic Level number by occurring at 
the same depth from lLexic level 0. The relationships that can exist 
between such procedures dépends upon the relationship of the nests in 
which they appear. 


Procedures that have a common procedure one Lexic level up can invoke 
each other. Procedures that do not have this attribute can not invoke 
each other. This condition is called not being within scope. For 
examoles: 


PROGRAM 


CLEXIC LEVEL 0) 


C(LL“1) 


(LL=2) 


CALL PRO-A 


CALL PRO.C 


C(LL=1) 


(LL“2) 


CALL PRO.D 


“CALL PRO-B 


CALL PRO-A 


The procedures PROQ.A and PRO.C are both on Lexic level 1 (LL™1) and 
have a common procedure Clexic level 0 is considered a procedure in 
the above example) that is one lLexic level higher. They can both» 
therefore» contain executable statements that invoke the other. The 
single"pass characteristic of UPL» howevers requires a FORWARD state 
ment before this is allowed. 


Procedures PRO.B and PRO.D also have a common texic tevel numbers hows 
evers they are not nested in a commons immediately preceding procedure 
and cannots therefores reference each other. 


A question now arises: What happens if PRO.«.B invokes PRO.A and then 
PROe«A invokes PRO.C? Can PRO.C now reference PRO.B or any of its data™ 
names? It is» after all» still active because it has not yet executed 
a RETURN statement. 


The answer is noe At gg tipge can any statement in PRO.C reference 
PRO.-B or any data=name in PRO.B» The programmers howevers never loses 
control because this runtime nest of invocations is eventually 
unwound. Each procedure gust eventually execute a RETURN statement and 
pass control back to its invoking procedures thus unwinding the neste 


The scope of a datasname is similar to the scope of a procedure=name. 
A data™name can be referenced by any executable statement within the 
procedure in which it is declared. It also can be referenced by any 
active procedure nested within its declaring procedure. It can pgt 
be referenced by any procedure with a lower lLexic level number. Its 
value or name cans howevers be nassed as a parameter to such 
procedures. (CRefer to page 276.) 


For example: 


PROGRAM 


DECLARE CAA» ABC) FIXEDs 


PROCEDURE PRO.AS 


DECLARE BB FIXEDs 


PROCEDURE PRO.BS 


DECLARE CC FIXED; 


ABC := AA + BB + CC; 


AA + BB> 


PROCEDURE PRO.C 


DECLARE DD FIXED; 


ABC := AA + DOs 


The datasnames ABC and AA can be seen by Care within the scope of) all 
procedures. The datasname BB can be seen only by procedures PRO.A and 
PROeBe. That is» PRON.C and the outer level 0 code cannot reference 
datatnames BB or CC. 


SECTION 3 


EXPRESSIONS 


GENERAL 


Expressions are the operational portions of statements. If a statement 
is analogous to a sentences then expressions are the words and phrases 
within a sentencee ALlL operational functions» that is» comparisons 
arithmetic» etc.» take place within expressions except the assignment 
and the regular procedurercall functions. 


The format of an expression is similar to the format of an algebraic 
expression. Infix notation is used» and parentheses can be used» to 
group the order of evaluatione Each variable also can contain a prefix 
unary operator. 


An expression is defined to be recursive and cans therefore» contain 
as many variables and operators as are required to produce the desired 
result. 


Expressions are evaluated by performing the indicated operations in a 
Left=torright order. The sequence in which the operations are pero 
formed is determined by rules of precedence. (An operator precedence 
chart is given on page 3°52.) When operators have the Same precedence» 
the sequence of operation is determined by the order of their appears 
ances from left=totright. Parentheses can be used to modify the normal 
hierarchical sequence of executione An expression within the parenthe- 
ses is evaluated» and this value is then used in subsequent operations. 


CQRMALI_OE-AN-EXEBESSTONe 


The expression syntax is as follows: 


UNARY peeve veme | UNARY (cava rene) 
OPERATOR » ee 
0 


OPERATOR \ variable J PERATOR 


l variable s 


The elements of the Syntax are defined as follows: 
simple data=name 
array datacsname 

suBBIT) 


(data™name» expressions 


substring 
SUBSTR § expression ) 


data=™name 5 
BUMP data=name BY expression 


DECREMENT data=name BY expression 
IF expression THEN datastname ELSE data=name 


CASE expression OF Cdata=sname list) 


literal 
(data™name) 


value function procedure call (parameter 
expression list) 


evaluation of an expression 
BUMP data=name BY expression 
DECREMENT data™name BY expression 
IF expression THEN expression ELSE expression 
CASE expression OF Cexpression List) 
variable SUBBIT Cdatasnames» expression » expression ) 
SUBSTR Cdatasname» expression » expression} 
CONV 
LENGTH 
BINARY 
DECIMAL 
TIME 
DATE 


NAME.OF.DAY 


RALA=NAMESs 


A data™name is a memory address with a type and length attribute. It 
is considered to have a value when used in an expression unless it 
appears to the left of a replacement or assignment operators in which 
case it is the receiver of a values. A datasname differs from a vari- 
able because of this last characteristic. That is» a variable is 
always a value and can never be the receiver of other values. It can 
only be operationally combined with other values to produce a new 
value. 


SIMPLE DATA@NAME. 
A simple data=™name is the datasname as given in a DECLARE statement. 


ARRAY DATA™“NAME. 


An array datasname must be subscripted. The subscript that is enclosed 
in parentheses can be an arbitrary complex expression. For example: 
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ExaressigQn Comments 


XC I) X is the array data™name» and the binary value of 
| the simple datatname I is the array element being 
accessed. The first array element is number 0. 


X (BUMP I BY 2) Every other element of the array X is to be accessed. 


SUBSTRINGS OF DATA*NAMES. 

Two substring functions are available: the SUBBIT» to reference a 
string of bits within a datasname» and the SUBSTR» to reference a 
string of characters. Both functions require the datasnames the dis= 
placement starting Locations» and the length of the substring. For 
example: 


Execessign Conugents 


SUBSTR (Xs 2» 1) The third character in the datasname X is 
referenced. 


SUBBIT CA» 7) It references the eighth bit through the end 
of datasname A. The default option on the 
length is through the end of the data™name. 


The arguments of the substring function can be expressions ands» 
therefores contain substring functions. For example: 


ExeressigQn Comments 


SUBBIT € SUBSTR (X» 2» 1)» O» 2) This references the first two 
Cleft=most) bits of the third 
character in data™name X. 


The BUMP» CASE» DECREMENT» and IF expressions are discussed in detail 
in section 6. 


YARIAGLEs 
A variable is a vatue within an expression. It can be explicit» such 
as a literals» or implicit» such as the sum of two data=names. 


LITERAL. | 

A literal is a constant whose value is used in the expression as it 
appears. Three types of literals correspond to the three possible 
datatypes. 


ae The first is the fixed or constant Literal. Fixed 
Literals are signed number values. For example: 
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be The second is the character or charactersstring literal. 
Character literals must be enclosed by quote (") symbols. 
They are 8"bit groups CEBCDIC). If a quote sign is desired 
in the character literals two adjacent quote marks are 
required. The maximum number of characters is 256. For 
example: 


HYVES? 


ee ve 


"QUOTEC?")*" 


ce The third type is the bit or bit=string literal. Sit 
literals are available in groupings of 1 Cbinary)» 2 
Cquartal)» 3 Coctal)» or 4 Chexadecimal). The bit Literal 
is enclosed by ® signs and contains a grouping indicator 
enclosed in parentheses. For example: 


@¢1) 110110118 binary 

@€(2) 012011228 quartal 
@(¢3) 01235776 octal 

@CC4) O148ACFO hexadecimal 


If the grouping indicator is omitted» 4 Chexadecimal) is 
assumede The grouping can be changed within the literal. 
For example» 


@eCi) 101 €2) 210 €3) 765 (4) Fe 
is a 22"bit literal. 


DATA*NAME VALUES. 

Any data™name that is enclosed in an extra set of parentheses has only 
its value used in the expression. This is often useful when passing 
parameters to procedures. 


VALUE FUNCTION PROCEDURE CALL. 

A function procedure call is the use of the function=name in an 
expression. It passes control to any function procedure written 
by the programmer or to one of the intrinsic functions. It always 
results in a value. 
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EVALUATION OF AN EXPRESSION. 

The evaluation of an expression is the combining of any two or more 
operands with an operators» for examples» A + Be. The evaluation always 
results in a value. 


SUBSTRINGS. 

The bit substring function SUBBIT is used to isolate a set of bits from 
a datastname.e. The character substring function performs the same opera®™ 
tions but considers its data as type CHARACTER. When a substring 
function is used as a variable» it returns a value. 


The BINARY» CONVERT» DATE» DECIMAL» LENGTH» NAME.OF-DAY» and TIME are 
described in section 8. 


QEERATQB-CBECERENCE_ IN EXER ES aLONS: 


Operator precedence in expressions is as follows: 


Qeecatec Euoctigo Tyee 
: t= replace delete 
\ + left part 
highest < replacement 
] $32 replace delete 
{+ right part 
+ plus 
unary 
minus 
+ addition 
sad subtraction 
* multiplication arithmetic 
/ division 
MOD remainder 
= £QL equal 
x NEQ not equal 
> GTR qreater than 
> GEQ “greater than or 
equal to . relational 
< LSS less than . 
gs LEQ less than or 
equal to 
NOT not 
AND and 
OR or Logical 
EXOR exclusivetor 


CAT concatenation miscellaneous 


as reolace delete 
+ left part 
Lowest < reclacement 
] 23s replace delete 
I; + right part 


The replacement operator is lower than any operator to its right» but 
higher than any operator to its left. Also» the replacement operator 
is distinct from the assignment operator in that the replacement must 
be within an expression while the assignment defines a statement. 


EXEBESSLON.IYEES: | 

Expressions can be divided into several types with corresponding 
properties. They atl» however» can be combined or imbedded in any 
order and are collectively referred to as expressign in the syntax. 


ARITHMETIC EXPRESSIONS. 
The arithmetic operations are as follows: 


ae Addition (+). 

be Subtraction (). 

ce Multiplication (*). 

de Division (/). 

ee Remainder of division (MOD). 


The arithmetic operations are always performed on the lLowtorder or 
rightcmost 24=bits of datasnames» and the calculations are in binary 
regardless of the datasname declared typee Intermediate results are 
held in UPL machine registers» leaving the original contents of all 
datasnames unaltered. An assignment or replacement operator is 
required to move the results of a calculation into a data=name. 


Datasnames can have preceding (postfix) unary operators to the right 
of the arithmetic operators that are between Cin=fix) the datasnames. 


FIXED ARITHMETIC EXPRESSIONS. 

Arithmetic operations in which both operands are of type FIXED always 
produce a type FIXED result. The maximum numbers are +2 raised to the 
23rd power “1 (€+8%388%607) and “2 raised to the 23rd power (78s 3882608). 
Values in excess of these Limits have their high-order bit ignored. 
Negative values are expressed in the complement notation of 2. 


NON*FIXED ARITHMETIC EXPRESSIONS. 
All arithmetic operations in which one or both of the operands are ggt 
of type FIXED are handled in a 24™bit mode. 


The operands are considered as 24"bit unsigned positive numbers. The 
maximum value is 2 raised to the 24th power (1627779216). If an 
expression containing nonwFIXED data results in a value greater than 

2 raised to the 23rd power wl» and it is then assigned or replaced into 


376 


# 


a FIXED datasname» the result is a negative FIXED value. Use of the 
unary minus sign (=) with a non=FIXED data=name converts all 24*bits to 
2*s complement notation. This value is not a negative number» but it 
can add to other data=names to produce the equivalent of subtraction. 


RELATIONAL OR CONDITIONAL EXPRESSIONS. 

A relational expression determines the truth cr falsity of a relations 
ship between datasnames. The result of a relation test can be used to 
control an IF statement or as an expression in further operations. 


For example: 


IF A EQL B THEN STMT.TRUES 
ELSE STMT.FALSE> 


The relationship of equality is used to choose between the two 
statements in the IF statement. 


The relational test results in a single bit indicators» called the 
conditional*bit. Truth of the test sets this conditional=bit equal to 
a 1 Cone)» and falsity sets it equal to a 0O (zero). 


Other operations utilizing the conditional=bit are allowed. For 
example» X := A EQL Bs assigns X a value of binary 1 if A equals 

B or a value of 0 if A is unequal to Be. The statement X := €A LSS B) + 
CA GTR B)s results in X = 0 only if A equals B. 


Relational comparisons are divided into three types: 


ae A characterstoscharacter comparison is lLefttaligned and bit= 
bysbit.e Therefore» B is greater than A because B is 
hexadecimal C2 and A is hexadecimal Ci. Shorter fields are 
padded with space characters Chexadecimal 40). 


be <A fixed=to=fixed comparison is leftsaligned and a true 
algebraic comparee That is» a “1 (negative one) is less than 


a 0 (zero). 


ce Alt other combinations of datatypes are rightsaligned and 
bitwby-bit. ; 
Any combination of operators can be included within a relational 
expressione For examples 


IF CCA NEQ@ BD OR CCA * BY) NEQ ZERC) + 1) 
THEN ood 
ELSE ceed 


The relational operators are as follows: 


Symbol Moemanic Meaoiog 


= EQL equal to 

# NEQ not equal to 

> GTR greater than 

< LSS less than 

Ps GEQ greater than or equal to 
s LEQ less than or equal to 


LOGICAL EXPRESSIONS. 

The logical operators perform a righttadjusted bitsbysbit combination 
of their operands. All data types are operated upon in the same manner 
for their full tength. The shorter of the two is padded on its left 
with binary O*s. Notice that charactersto-character logical opera 
tions are performed in the same manner as all other combinations of 
data types. 


Table 3°1 illustrates the use of each logical operator. 
Table 3-1 


Logical Operator Usage 


Variables 


Bit Configuration 


"Not" is considered a unary operator and may appear adjacent to any 
other operator including itself. 


FUNCTION EXPRESSIONS. 
A function expression is a call upon a userewritten function procedure 
or upon one of the UPL=supplied functions as described in section 8. 
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In either cases the function returns a term to be combined with other 
terms to produce a result. The terms can be values or addresses. 


Values can be operated upon directly as if they were literals to pro- 
duce a result» while addresses point to memory space that can then be 
the source or destination of a value.e. That is» addresssgenerating 
functions differ from value functions because they can be the object of 
an assignment or replacement operator. 


For example: 
A 3:= LENGTH (Cx) 3 


The LENGTH function returns a value equal to the number of units of X» 
and this value is assigned to the datasnamee The LENGTH function can 
never appear to the left of an assignment or replacement operator. 


The SUBBIT and SUBSTR functions» howevers are address=generating 
functions and can appear on either side of an assignment or replace 
ment operator. That is» SUBSTRCCARD20%8)3s s= SUBSTRCCARD97228)3 moves 
the rightmost eight characters of the datasname CARD to the left=most 
eight character positions. 


NOTE 
Datasname CARD is assumed to 
be an 80"character card image. 


The VALUE=generating functions in UPL are as follows: 


SUBBIT BINARY 
SUBSTR TIME 
CONVERT DAY 

LENGTH NAME OF DAY 
DECIMAL BUMP 

CASE DECREMENT 


IF eee THENe oe s ELSE 
The ADDRESS*generating functions in UPL are as follows: 


SUBBIT 

SUBSTR 

IFeee THEN address generator ELSE address generator 
CASEeeeOF Caddress=generating list) 


The IFeeeTHENeoeELSEeee and CASEeee-OF functions must contain address 
generating functions goly if they appear to the left of an assignment or 
replacement operator. 
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SECTION 4 


STATEMENTS 


GENERAL. | 

Statements are the UPL equivalent of grammatical sentences. They cone 
tain a complete sequence of operations (Cone complete idea) that is log= 
ically separate from other similar sequencese While an expression 
evaluation results in a numerical values statement evaluation specifies 
functions or assignments for the values. For examples the expression 
A+B results in a numerical values but the statement X := A + B3 Cread 

X is replaced by A + B) assigns the value of the expression to datas 
name Xe 


Statements are always terminated by a semicolon. 


Statements fall into three general classifications: declarations 
controls» and assignment. 


QDECLABAIZTON-SIAIEMENT Se 
Declaration statements relate memory space to datasnames and their 
attributes. They are described in detail in section 5. 


CONIBCLSIAIEMEN TS: 

Control statements determine the sequence in which statements are to be 
executed. They pass control to procedures» bind groups of statements 
together» or conditionally specify which one of several statements is 
to be executed next. 


PROCEDURE CALL STATEMENT. 

The major control statement in UPL is the procedurercalling or invoking 
statement. It consists Of a procedure=name followed by any parameters 
enclosed in parentheses and terminated by a semicolon. For example» 
the procedure ABS» which requires one parameter» would be invcked by 
ABS (VALUE); . 


There are three considerations governing the use of procedurescalling 
statements. First» a called procedure must be within the scope of the 
calling procedure. 


In lexic level terms» a called procedure must be: 
ae One lower lexic level nested within the calling procedures 


Dis Not more than one lower texic level within a currently invoked 
procedure that itself is on an equal or higher lLexic level» or 


om A currently invoked procedure on an equal or higher lexic 
level. 


Seconds a called procedure glwaysg returns control back to its calling 
procedure. There is no GO TO statement in UPL. The programmer must» 
therefore» structure the program logic to use this return=control 
actione The immediately succeeding executable statement in the calling 
procedure is executed when control is returned. 
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Thirds the called procedure must be of the proper class. There are two 
classes of procedures in UPL. Ones which goes pot pass back a value 
when it returns controls is referred to as a regular procedures the 
others» which ggeg pass back a value» is referred to as a function 
proceduree The function=procedure call is considered an expressions 
not a statement. It is described in section 3. 


DO STATEMENT. 

Statements may be bound or grouped together by the DO» IFeeeTHENeee 
ELSE» or CASE» statements. The DO statement binds all following state> 
ments to its matched END statement as if they were one statement. For 
example: 


DO SETA>s 

X t= X+13 

AePARM s= ZERO? 

ROUTINE (€X» AePARM)3 (This is a procedure call 
END SETA; with two parameters.) 


Once a DO group is started it is completed. The individual statements 
within the group cans howevers be any executable statements including 
imbedded DO statements. 


DO FOREVER STATEMENT. 

The DO FOREVER statement performs iterations of the statements within 
the group until an UNDO statement is executed or control is returned 
from the procedure in which the DO FOREVER is imbedded. For example: 


DO PRTN FOREVERS 


X := X+1>5 

RCUTINE €X» AePARM)3 Cprocedure call) 

IF X EQL 5 THEN UNDO; (test limit) 

IF X EQL 10 THEN RETURN; Creturn from the current procedure) 
END PRTN3> 


IF STATEMENT. 

The conditionalexpression within the IF statements» when evaluated» 
designates which of two statements is to be executede The O00 group 
statement is often used with the IF statement in order to execute a 
set of statements conditionally. For example: 


IF A+B GTR X THEN DO; 
A = Aw13 
IF A EQL O THEN UNDOS 
RTNeXYZ3 
ENDs 
ELSE DO; 
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After the chosen statement executes» control passes beyond the end of 
the IF statement. 


CASE STATEMENT. 

The CASE statement is an expanded form of the IF statement. The 
evaluation of a conditional expression chooses one statement from among 
all the following statements up to the END CASE statement for execution. 
After that one statement is executed» control passes to the first 
statement beyond the END CASE statement. 


CASE» DO» IF» and PROCEDURE invocations or assignment statements may be 
imbedded in any of the above statements in any order and to any depth. 


ASSIGNMENT. STATEMENT: 

The assigowent statement is the primary datasmovement statement in UPL. 
Truncation and padding are performed across the assignment operator and 
are dependent upon the type and Length attributes of the datasnames as 
given in the declaration statements. 


SECTION 5 


DECLARATION STATEMENTS 


GENERALS: 

Declaration statements specify memory allocation and data attributes or 
link together portions of a programe They can also be compiler direc- 
tory informations as in the DEFINE or FORWARD PROCEDURE statement. 


This section describes each declaration statement in alphabetical 
order. The format of each statement is as follows: 


ae Purposee 

be Syntax. 

ce Description. 
de Examples. 
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DECLARE 


QECLABE- STATEMENT: 


The NECLARE statement reserves memory space for data=names and assigns 
types» Lengths and hierarchical attributes. 


SYNTAX. 
The syntactical structure of the DECLARE statement is as follows: 


Normal Format 


QDECLABE CRAGED] Cnager-size). datasnamen1 (CCarray=size)] [BeuAes 
ere 
data=name=2 | CHABACIEB (length) z 
BIL ClengthQ 


List Format 


RECLABE QCdatasnamew1 (CQarray-size)] 
[Le data=name-? [Carray*size)] | see | 2 
ELXED } 
CHABACIER (length? > z 
BIL ClengthQ ! 


Structured Format 


( data-name-1 [Carray-size] | 
QDECLABE level-number ELLLEB f 
L ouuwy 


EIXEQ 
CHABACIES (lengthy > 3 


[BEMABS data=name-2] 
B1lI (length) 


Dynamic Format 


( CHABACTIER Cdata=name-2) \ 
DYNAMIC data-namen-l < zZ 
| SIL (data-name-3) f 


RECLABE 


DECLARE 
cont 


DESCRIPTION. 
DECLARE statements must appear at the beginning of the program or at 
the beginning of a procedure. 


The word DECLARE need not be repeated when commas separate repetitive 
declarationse Repetitive declarations within one statement can mix 
format types. 


The most efficient code is generated if all data=names are declared in 
one statement. 


Datasname 1 is the name to be assigned memory space and attributes. 
The datasname must begin with a letters may contain letters» digits» 
or dotss must not exceed 63 characterss and may not contain imbedded 
blanks. ; 


The PAGED option applies to arrays only. It allows the programmer to 
specify the number of array elements to be contained in one page that 
is in one segment. The page size must be a power of 2.2 The maximum 
number of bits in a page Cpage size times bit Length) is 65535. The 
maximum number of characters in a page is 8191. PAGED arrays cannot 
be part of a structure and cannot be remapped. 


Page accessing is performed automatically during program execution. 


Array*size specifies the number of elements in an array. Parentheses 
are required. Arrays are not dimensional and begin at subscript 0 
(zero). Array elements are referenced 0 through N=1 for an N element 
arraye The maximum array size is 652535 elements. Maximum element 
sizes are 65535 bits or 8191 characters. 


REMAPS resassigns the memory space of datasname 2 to datasname 1. The 
type Clength) attributes apply to datasname 1» but cannot exceed the 
length in bits of data™name 2. Any datasnames that have been declared 
can be remappeds including those that remap other data=names. 


The type Clength) attributes are as follows: 


ae FIXED is a sign and a 23-bit binary integer. 
be CHARACTER is an 8=bit unit. 
ce BIT is a 1isbit unit. 


Detailed specifications regarding data types can be found in section 2. 


The Clength) specifies how many of the CHARACTER or BIT units to 
assigne The maximum lengths are as follows: CHARACTERS 8191 and 
BITS 652535. 


The list format allows repetitive data™names all of the same type 
ClLength). They can be of different array=size. 


The structured format creates a hierarchy of datasnamese The level= 
numbers assign positions in the structure. The 1 or 01 Level must be 
the first level in any structuree All higher numbers define lower 


DECLARE 
cont 


levels and reDECLARE the memory space of their higher Levels. All 
elements within a structure must contain level numbers. A maximum of 
99 levels is allowed for one structure. 


Any datasname that is further substructured is called a group data=name. 
A datasname with no substructure is called an elementary data=name. 
Elementary data™names must contain a type Clength) specification. The 
group datasnames need not contain type Clength) specifications. They 
are assigned the type BIT by the cotipilers and their length is the sum 
in bits of all the elementary data=names below them in the structure. 


The word FILLER can be used to avcid naming portions of structures that 
are not referenced. If the Lower portion of any Level in a structure 
does not allocate all of its higher level» the compiler supplies a 
FILLER. FILLER ggpogt be used for group data™names. 


The word DUMMY is used only with the REMAPS option. It. is used to 
avoid the naming of datatname 1. A DUMMY cannot remap another DUMMY» 
and it must have at least one non*sFILLER data=name. 


The maximum number of data elements within one structures including 
FILLERS» DUMMYs» and implicit FILLERS» is 64. 


Arrays are mapped as continuous areas of memory. If the array is part-: 
of a structures its substructure resallocates each of the array ele- 
mentse That is» the substructure array is not manped into contiguous 
areas of memory. Each subelement is implicitly an array and must be 
addressed with subscripts. Structured arrays gagpogt contain arrays as 
subelements. . 


The dynamic format allows simple data=names to be DECLARED with their 
field lengths for calculation upon each occurrence of the declaration 
at execution time. The dynamic format can be used only at lexic level 
1 or greater. That is» it must be contained within some procedure. 
Datasname 1 must be either of type BIT or CHARACTER and is assigned a 
length in units of the binary value of datatname 2 or datasname 3. 
Datasname 2 or datasname 2? must be DECLAREds te initialized» and be 
within scope before the procedure that contains the dynamic declaration 
is invoked. Data™name 2 or datasname 3 can also be format declarations 
within the procedure in which they appear in a dynamic declaration. 
Dynamic declarations cannot contain arrays or structure data*names. 


Dynamic declarations can be remapped» but it is the programmer's 
responsibility to ensure that the remapped declaration does not exceed 
the Length of the dynamic data=name.e. Unpredictable data results if 
references are made beyond a dynamic datasname via the REMAPS 
referencing technique. 


NOTE 
There is no syntax check made for the 
initialization of datasname 2? or 
dataname 3. 


DECLARE 
cont 


The scope of declarations is the same as the scope of the procedure 

in which they are DECLAREd. That is» they are addressable in their 
declaring procedure. and in any nested procedurese They are not 
addressable in any global procedures. This addressability is a result 
of the execution=times» memory=space allocations of declarations. 


The execution allocation of memory space is entirely dependent upon the 
execution sequence of procedurese When a procedure is entered» memory 
space is allocated for every data declaration in the procedure. When a 
procedure is exited» that is» a RETURN statement is executed» the 
declaration memory space becomes available for resassignment. Data= 
names declared within a procedure ares therefores available to the pro- 
cedure and all of its nested procedures. They are unavailable to any 
of its global proceduress that is» procedures in which it is nested. 


Duplicate datasnames can occur in different procedures at compile~time. 
If the scope of the names overlaps» the compiler references the name at 
the Lower lexic level Cwithin the nested procedure) within the over 
lapped area. A duplicate datastname within one procedure is a syntax 
error. 


Recursive invocation of a procedure results in a new memory~space 
allocation for every datasname declared in the procedure. 


All data that is used as global data for the entire _grograu_oust be 
completely DECLAREd before any other statement types. That is» they 
must appear in the source program pefore all nested procedures and 
before any executable statement. 


Class I reserved words cannot be used as data=names. 


Class II reserved words can be used as datasnamess buts if used» they 
lose their significance for the scope of the declaration. A warning 
message appears on the printout. 


Class III reserved words can be used anywhere without confusion except 
within the specific statement and position that requires them; for 
example» PUNCH can be declared a datasnamee PUNCH in the FILE state> 
ment DEVICE portion refers to the I/0 device and not the data=name. 
Class III reserved words may not be defined when used as reserved 
wordS.e 


EXAMPLES. 
Examples of .the DECLARE statement are as follows: 


Examoles Comments 
DECLARE TAGA FIXED; TAGA is a signed 23-bit binary 
value. The sign is the most 
significant (leftmost) bit. 
DECLARE TAGB CHARACTER (1)3 TAGB is of type CHARACTER and 
1-unit long. The type 
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DECLARE 
cont 


Exapoles 


DECLARE TAGC BIT (17); 


DECLARE TAGA FIXED» . 
TAGB CHARACTER (1)> 
TAGC BIT C17); 


DECLARE NAMES (€12) CHARACTER (25); 


DECLARE 
O01 CARD CHARACTER (€80)>» 
O02 INPUT CHARACTER (€72)5 


DECLARE 
01 TABLE.~A CHARACTER (€15)> 
02 ITEMe.1 CHARACTER (€6)>» 
O02 ITEM.2 CHARACTER (4) >» 
03 SUB.ITEM.2 FIXED» 
/* There is an implicit FILLER of 
8 bits here */ 


O02 ITEM.3 BIT (1)>» 
02 ITEM.4 FIXED 
02 ITEM.S BIT (7) 
/* DECLARES may be continued with 
appropriate commas */ 
01 TABLE.B BIT (€200)3 


DECLARE CARDS CHARACTER (80)>» 
COLUMNS €80) REMAPS CARDS 
CHARACTER (1)>5 
O1 NUM.FIELDS €40) REMAPS 
CARDS CHARACTER (€2)> 
O02 FIRST.»-NUM CHARACTER 
C1)» 
02 SECOND.~NUM CHARACTER 
C1); 


Couoeaots 


CHARACTER is in 8=bit EBCDIC 
format. 


TAGC is of type BIT and is 17 
bits in length. 


Same as preceding examples 
except it is a single state 
ment with the items separated 
by commas. 


NAMES is an array of 12 items 
each with 25 characters per 
item. 


A FILLER of eight characters 


is automatically assigned by 


the UPL Compiler to round off 
the 02 level to its required 
Length of 80 characters. 


A table of five items that con- 
sumes 15 bytes is DECLAREGd. 
Each item is explicitly named 
in the structures and its type 
and length are given. Also 
DECLAREd is a second table of 
200 bits. 


The SUB.~ITEM.2 further sub- 
divides ITEM.2 and uses the 
first Cleft=most) three chars 
acters (24 bits). The /*eeer/ 
is a comment. 


An 8O0*coOlumn card is DECLAREd 
and then remapped as an array 
of 80 elements» each element 
of one character. The card is 
again remapped as a 40-element 
arrays» each of two characters. 
Each 2-character array element 
is further subdivided into 
separate elements that can be 
referenced. Notice that 
FIRST»~NUM and SECOND.NUM must 
be subscripted when they are _ 
used and that 39 is the maxic 


Exaoolies 


DECLARE CITEMeil» ITEM.e.2s ITEM.3) 


FIXED; 


DECLARE 
O01 NEW-LABEL» 
O02 NL-1 CHARACTER (€25)>» 
02 NL-~2 €3) CHARACTER €25)>» 
03 FILLER CHARACTER (5)>» 


03 FIRST CHARACTER (€10)> 
03 SECOND CHARACTER 
C10)» 
02 NL-3 FIXEDs 


DECLARE 
O1 A» 
02 Al €20) BIT (€20)> 
02 A2 (18) BIT (€20)> 
03 B1 BIT (€15)>» 
03 B2 BIT (5)»s 
02 A3 (2) BIT (5); 
DECLARE 
01 TAGA (5) BIT (€48)>» 


02 TAGB FIXED>» 
02 TAGC FIXED; 


DECLARE 
cont 


Cooweots 


mum value of the subscript. 


A list of datasnames is 
DECLAREd» all of type FIXED. 


A group item NEW.LABEL jis 
DECLAREd» and the compiler 
assigns it type BIT. It is 
equal to the sum of the bits 
of the 02 level below. (C25 + 
3 * 25) * 8 + 24 = 824 bits) 


NLe2 is an array of three ele= 
ments each 25 characters in 
length. FILLER is used to 
omit the naming of an area 
that is never referenced sepa 
rately. FILLER can be used as 
often as required without 
causing a duplicate*name syn 
tax error. FIRST and SECOND 
are 3=element subarrays of the 
NL.2 arraye They are refer= 
enced with subscripts O» 1» 
and 2s for the first» second» 
and third elements. Each ele 
ment is 10 characters. NL.3 
is a FIXED signed binary 
number. 

The datastnames Al» A2s» Bis B22» 
and A3 must all be sub 
scripted» when useds because 
of the explicitly declared 
arrayssizes specified for Al» 
A2» and A3- 


The Length sum of data=names 
Bi + B2 must be equal to» or 
less than» that specified for 
data=sname A2. 


TAGA is mapped in a contig= 
uous memory area to contain 

the data developed for TAGB 

and TAGC. TAGB and TAGC are 
implicit Ssunit arrays» but are 
ogt mapped contiguously. They 
are mapped alternatingly as 
follows: TAGBCO)» TAGCCO)» 


2 al 


DECLARE 
cont 


Exampoles 


DECLARE PAGED (64) BIG.D.N- 
BIT (€1)3 


Coumeots 


TAGBC 1)» TAGCC1)»s. e e oe, 
TAGBC 4)» TAGCC4). 


BIGeDeNe iS an array of 5000 
elements» each of one bit. 
The array is segmented into 
64 partse Each part is 
brought into memorys that iS» 
paged» whenever it is 
addressed.e- No special state- 
ments are required to do the 
paging. 


DECLINE. STATEMENT: 


The DEFINE statement provides the capability of inserting multiple 
copies of specified UPL source text from only one image of the source 
text into a program during compilation. 


SYNTAX. 
The syntactical structure of the DEFINE statement is as follows: 


DEEINE definition-name [ (parameter1 [zg parameter-21]... 2 | 


AS #@ text [parameter=1 {text parameter=2] oie] # 2 


DESCRIPTION. 

The data specified between the # siaqnss called the text» is paired 

with the definitionsname. When the definition=name appears in any sub 
sequent location in the programs the compiler replaces the definition= 
name with the texte The text must conform to the syntactical 
requirements of the statements into which it is placed. 


The DEFINE statement myst appear within the declaration section of the 
program or of a proceduree The scope of a DEFINE statement is the same 
as the scope of any datat™names in that declaration section. That is» 
the scope exists in its declaring procedure and all directly nested 
procedures. Multiple DEFINES can appear within one DEFINE statement 
and must be separated by commas. DEFINE statements can be nested to a 
depth of 12 levels. That is» the text can contain previously declared 
definition=names-e- The compiler expands all nested DEFINE statements 
into their appropriate text strings. 


The text can contain any UPL Symbol including semicolonss but it cannot 
contain the # or % signse The # sign is the text delimiter» and the 2% 
sign indicates that the remainder of the card is a commente The com= 
ments Signs /*eecer/s» Can appear within a DEFINE Statement» but it is 

not copied at invocation times. A maximum of -1024 characters can appear 
in a DEFINE strings excluding comments and superfluous blanks. Also»s no 
unpaired bracketing symbols (€) or (€1) may appear within a define. 


All datasnames that are coded within the text must be DECLAREd prior to 
an invocation of the definition=names» but need not be DECLAREd prior to 
the DEFINE statement. 


Retusages that is» duplications» of a definition=name on a lower lLexic 
Level for any of the following names inhibits the substitution of the 
text for the scope of the duplicate name.e The names are as follows: 


ae DECLARE names. 

be PROCEDURE names. 

Ce FORMAL names. 

de SEGMENT names. 

Ce DO group names. 

f. FILE» OPEN» WRITE» and CLOSE attributes. 
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DEFINE 
cont 


A duplicate name within scope and on the same Lexic Level is a syntax 
errore 


Duplicate definition*namess which can be encountered between lexico= 
graphical levels» are resolved at compilestime by using the most cur? 
rent name Con the highest lLevel).»~ When a lLexicographical level is 
exited Cexit from a procedure)» the names on the higher lexicographical 
level are lost and can be restused» Reserved words of class I cannot be 
used as definitionsnamese. A definition=name can» howevers define a 
reserved word. Reserved words of class II can be used as definition= 
names» but their special significance is lost within the scope of the 
DEFINE statement. 


The actual parameters associated with an occurrence of a definition= 
name are not restricted to simple data=names. They can contain complex 
constructs» but must be delimited by O-level commas» that is» commas 
not enclosed within paired parentheses or braces. 


The actual oarameters replace the format parameters in the DEFINE 
statement in a lefte*tozright orders and their number must be equal. 
The maximum number of parameters is Limited to eight per definition= 
name. 


Conditional compile cards (cards with an & sign in column 1) may appear 
as part of a DEFINE stringe A SDETAIL compiler option card prints the 
expansion of DEFINES on the compiler printout. 


EXAMPLES. 
Examples of the DEFINE statement are as follows: 


Exaneles Cougeots 


The source code contained 
between the # signs of the 
DEFINE statement is copied 
into the UPL Program when= 
ever the word REPEAT is 
used. 


DEFINE REPEAT AS #ABC CTAGA»> X) #5 


IF X EQL 9 THEN REPEATS This statement is equivase 
Lent to IF X EQL 9 THEN ABC 


CTAGA» X)3 


DEFINE CH AS # CHARACTER #>» 
FX AS # FIXED # 
THEN DECLARE X CH (5 )>» 
Y FX» Z CHC2)5 


The source code generated 
would be: 


DECLARE X CHARACTER (5)>» 
Y FIXED» 
Z CHARACTER (€2)3 


DEFINE TRIAL CAsBeC) AS This statement generates 


# IF CA) EQL ZERO THEN A ?= 
ELSE C #s 


the followings: IF CTAGA) 
EQL ZERO THEN TAGA = ABS 


DEFINE 


DEFINE 
AB 


DEFINE 
A 
& 
& 


DEFINE A AS #IF X GTR 10 THEN 


PROCX#>» 


CCM) AS #X 25 
Zs BUMP I CR 


CC 


DEFINE MAX.SIZE AS & IF DATACOMM 


T AS 
F AS 


X AS 
C AS 


Exanoles 


#O0(01)10>» 
#@(1)083 


s ® 
x< > 
w 
we O 
wo 
Ee 


MAX AS # & IF Si 


s= X53 


ELSE 


A 3:= Y3 


END #3 


Ms A 
+ S$) 


DEFINE 
cont 


Cowusais 
(BX)3 ELSE CX t= SQRF (BX)3 


The T and F become Boolean 
bit strinas of 1 or QO» 
resoectively. 


This statement causes an 
error diagnostic at 
compilestime when the come 
piler attempts to expand 
either X or ABC into TEXT. 


This whole statement is 
available to the compilers 
but only A := X or A t= Y 
is compiled» depending on 
the condition of the 
conditional symbol Sl. IF 
the statement & SET Si has 
been encountereds A := Xs 
is used. IF S1 has not 
been set or is resets that 
is» & RESET Si» then A t= Y 
is used. 


This statement expands to 
X := Z3 BUMP I CRtS)s IF X 
GTR 10 THEN PROCX;3 


If a conditional compile 
card of & SET DATACOMM 
appears»s the DEFINE 
MAXeSIZE would result in 
64. If the &SET does not 
occur or if a &RESET 
DATACOMM occurss MAX.SIZE 
is defined as 32. 


FORMAL 


EQRMAL.-SIALICMENT: 


The FORMAL statement is used to assign data attributes to the 
parameter=name in the procedure head statement and the FORWARD 
PROCEDURE statement. 


SYNTAX. 
The syntactical structure of the FORMAL statement is as follows: 


Normal Format 


* 


EQBMAL datasname=1 
EQRMALs2YALUE 


Carray=size) 


YARLING 
ELXEQ 
CUABACTER 


YABYING 
Clength 2 z 
YABYING 


Clength) 


List Format 


EQBEMAL Cdatasnamen}i F hekaioniaiit . sae Uaniaeees 
EQRMALsYALVE 


oe VABYING 
: | ELXED 
YARBYING 
Carray-size2) jee 2 CYABACIEB a - z 
~ enat 
YAEYING 
Bld 
Clength) 


DESCRIPTION. ; 

All of the datasnames in the procedure head statement and FORWARD 
PROCEDURE statement gyst be declared in the FURMAL statement. Only the 
datasnames in the procedure head statement or a FORWARD PROCEDURE 
statement may appear in a FORMAL statement. 
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FORMAL 
cont 


The data-names in the procedure head or FORWARD PROCEDURE statements 
should agree in type and length attributes with the actual data=names 
that are passed at objectstime.e. Run-time checking is performed only if 
the compiler option SFORMAL CHECK is requested. No checking cccurs 
during compilation. If checking is requested and a mismatch occurs» 
the program is terminated. 


The names given in a FORWARD PROCEDURE statement» however» need not 
agree with their corresponding names in the procedure head statement. 
The type and length attributes of the datasnames in the FORWARD 
PROCEDURE statement and the procedure head statement must agree. 


Object=time adjustment of type and Length attributes between the actual 
parameters passed and the specified format parameter datasname is 
performed with the VARYING option or array=size with the * Casterisk) 
optione Memory allocation is dependent on the actual parameters passed 
during each invocation of the procedure. 


The words FORMAL or FORMAL.-VALUE can be omitted between repetitive 
declarations when the declarations are separated by commas. 


The type Clength) attribute specification in the list format applies to 
all the datasnames in the immediately preceding list. 


The FORMAL statement must appear immediately after the procedure head 
statement or the FORWARD PROCEDURE statement. That iss» the FORMAL 
statement must appear before any local data declarations within a 
procedure. 


Level numbers are not allowed in a FORMAL declaration. 


Datasnames that appear in a FORMAL statement can be remapped by tocal 
data declarations. If they contain the VARYING or * optionss a warning 
message appears on the printout. It is the programmer's responsi= 
bility to ensure proper remapping. 


The FORMAL-VALUE option causes the actual parameter always to be 
passed=by=value. 


EXAMPLES. 
Examples of the FORMAL statement are as follows: 


Exagole Conmeot 
PROCEDURE ABC (Xs Yo Z)3 Procedure ABC has three 
FORMAL X FIXED» Y CHARACTER parameters that must be declared 
VARYINGs Z (*) BIT FORMALLy. X is a simple FIXED 
VARYINGS data™name. Y is of type 


CHARACTER. The length is cals 
culated on each call of the pro- 
ceduree 2Z iS an array of a vary: 
ing number of elements of type 
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FORMAL 
cont 


Exapole 


Comment 


BIT where each element is also 
calculated on each call of the 
procedure. 


EQBHABR-CRQCEQUBE-STAIEMENT: 


The FORWARD PROCEDURE statement declares a procedure=name as being 
valid prior to the encountering by the compiler of the named procedure. 


SYNTAX. 
The syntactical structure of the FORWARD PROCEDURE statement is as 
follows: 


FQBWABD.ERQCEQUBE procedure~name 


[ (parameter=1 Cg parameter™2]) pee 


VABYING 
ELXEQ 


Clength) 


VARYING 
CUABACTER 


VARYING 
BI Clength) 


DESCRIPTION. 

The FORWARD PROCEDURE statement is the same as» and must conform to» 
the rules of the procedure head statement. It iS» howevers a declara*= 
tion statement and» as such» must appear within a DECLARE section of a 
procedure or of the program. 


The FORWARD PROCEDURE statement is a compiler control=statements and 
its presence does not eliminate the syntactical requirement of a pro? 
cedure head statement. It resolves all forward address references for 
a call to a procedure when the procedure has pot yet been seen by the 
compiler. This is necessary because UPL is a i*pass compiler. 


The FORWARD PROCEDURE statement must contain its named procedure within 
scopee That iss the FORWARD PROCEDURE statement must be global to the 
referenced procedure. The type Clength) clause is used only with func= 
tion procedures. It specifies the type and length of the value that is 
returned when the function procedure passes back control. Use of the 
VARYING option inhibits the checking of length or type and length of 
the returned value. 


When a FORWARD PROCEDURE statement contains a parameters a FORMAL dec 
laration statement must immediately follow with the same datas*names as 
those in the FORWARD PROCEDURE statement. The types and tengths of the 
parameters that are used in the FORMAL statement must correspond with 
the types and lengths that are declared FORMALLy in the procedure. The 
datasnames» however» need not be the same. 


FORWARD PROCEDURE 


cont 


EXAMPLES. 


Examples of the FORWARD PROCEDURE statement are as follows: 


Exapoles 
FORWARD PROCEDURE X3 


FORWARD PROCEDURE ABS CH» I» J) 
BIT VARYING; 
FORMAL CH» I) FIXED» J» CHARACTER 
C4)3 


Commeots 


Procedure X is being FORWARD 
declared. It may be referenced 
after this statement and before 
the procedure is actually 
encountered by the compiler. 


Procedure ABS has three param= 
eters that are also declared 
FORMALLy. The procedure is a 
function procedure that returns 
a VARYING Length bit=string. 


PROCEQUBE-SITALTEMENTs 


The PROCEDURE statement is used to delineate a group of statements and 
their data declarations. AlSo» it provides a method whereby the group 
can be executed from many places although the procedure appears only 
ONC. 


SYNTAX. 
The syntactical structure of the PROCEDURE statement is as follows: 


PROCEDURE 


cont 


PBOCEQUBE namenl [ (parameter=1 Cg parameter=2 «4-] Q | 


ELXED 
VARYING 
Clength) 
CHARACIER 
VABYING 
(length) 
BLI 
VABY ING 
[ EORMAL - +2] 
 GECLARE ase | 
LEogWABO EROCEDURE .--z | 
[ PROCEDUBE name-2 ...3 | 
[ cogmaL ---z | 
L pecLagE «+2 | 
[ Eggwage ---z'] 
PBOCEQUBE name-n ...3 
oer 
eoed CInclude executable 
Statements of procedurenn.) 
are 


ENQ nane=ng 


CInclude executable statements for PROCEDURE 2 at this 
point.) 


ENQ namew2z 


(Include executable statement for PROCEDURE 1 at this 
point.) 


END namew13 


PROCEDURE 


cont 


DESCRIPTION. 
There are two classes of procedures that differ principally in manner 
of invocation and in what they pass back to their invoking statements. 


ae Regular procedures execute a set of code and RETURN control 
back to the statement that follows their calling statement. 


De Function procedures execute a set of code and RETURN control 
and a value jotg their calling statement. The RETURNed 
value is» then» used instead of the function designator in the 
calling statement. The statement evaluation is then 
continued. 


Procedures can be created by surrounding a body of self=contained 
statements with a procedure head statement and an END statement. The 
body is divided into two parts: first» the declaration portion in 
which all local datasnames and all nested procedures are DECLAREdS 
seconds the executable portion containing all of the executable 
statements of the procedure. 


The procedure head statement consists of the following: 


ae A name that is used to cause an invocation of the 
procedure. 


be A set of datasnames that must agree in number with 
the parameters actually passed. 


Ce A type Clength) specification if the procedure is to 
RETURN a value. (COnlty a function procedure RETURNS a value.) 


de A FORMAL data declaration to specify the type (length) 
and array size of all parameters named in the procedure 
head statement. These specifications should» therefore» 
also agree with those of the actual parameters that are 
being passed. 


At execution times when a PROCEDURE statement is invoked» the declara= 
tion portion performs several functions. Formal declarations assign 
attributes for all parameters specified in the procedure head state 
mente Memory space assignment is made for all parameters passed=by= 
value» and the current value is loaded.j Parameters passed*by=name use 
the original memory spaces but are referenced with the name in the 
FORMAL statement. Declared data™names are assigned memory space and 
attribute characteristics. Initial. values are not loaded and must be 
supplied by the programmer with executable statements. The possibility 
exists that the procedure being invoked contains a datasname that is 
the same as one that is contained in an already invoked procedure. For 
example» procedure SQU can contain datat*name X» and procedure ABS that 
is being called can also contain datasname Xe The duplicate names 
problem is resolved across procedure bounds by making the most current 
occurrence of the duplicate datasname available» that is» data=™name X 
in procedure ABS. Data=name X in procedure SQU becomes available again 
when procedure ABS executes a RETURN» that is» is exited. If no such 
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PROGEDURE 


cont 


duplicate datasname problem occurs» all the datatnames of each outer 
procedures within any nest of procedures» are available to all nested 
procedures. For examples if orocedure SQU contains data=name N» and 
procedure ABS does not contain-a similar datasname» and if procedure 
ABS is nested within SGU» then any occurrence of datasname N in either 
procedure refers to the same: memory snacee 


The FORWARD PROCEDURE statement resolves the forward reference problem 
for the UPL sinaletvass comojiter. 


Nested procedures are part of the declaration portion of a procedures 
but must apoear after all other types of declarations. They must be 
completely defined before other nested procedures on the same lexic 
Level and before any executable statements in an outer procedure. That 
is» procedures must not overlap. 


NOTE 
A new lexic level is created by nesting 
a procedure. The limit is 15 lLexic levels. 


Executable statements are the operations that are performed when a 
PROCEDURE statement is invoked. Any executable UPL statement may be 
coded» including procedurewcalls and function procedure designators. 


The scope of the procedure=name defines the range over which a 
PROCEDURE can be invoked’ therefores a PROCEDURE can call itself 
(recursion). The Limit for recursion is program available memory 

for gata declarations. Reyond the Limit» the MCP aborts the program 
and generates an error messagee Procedure object code is maintained 
outside the base and Limit registers of the program and is recentrant. 


An END statement must contain the name of the PROCEDURE that it ends. 
A syntax check is performea to guarantee that the END statement is 
placed properly. 


Procedures can contain code seqmentss» but the procedure itself must 
begin and end within the same segment. 


The END statement of the porocedures» if executed» is equivalent to a 
RETURN statement. If the procedure is a function procedures that is» 
a value is to be passed back into the invoking expressions the follow= 
ing table shows what types and values are passed if the END statement 
return is executed. 


Pooceduce.lyoe=beogth | YValuecLeogth 
BIT Clength) Tero bits of the snecified Length 
CHARACTER Clength) “Blanks Chexadecimal 40) of the specified 
length 
FIXED Fixed O (zero) 


PROCEDURE 


cont 


Proceduce.Lyoezbength YaluezbLeogth 
BIT VARYING Eight bits of 0 Czero) 
CHARACTER VARYING One blank Chexadecimal 40) 
VARYING Fixed 0 Czero) 


EXAMPLES. 


Examples of the PROCEDURE statement are as follows: 


Exapele 


PROCEDURE SQUARE (N)3 
FORMAL N FIXEDSs 


RETURNs3 


END SQUARES 


PROCEDURE CUBE CA» Bs C)3 . 

FORMAL CA» Bs C) FIXEDS 

PROCEDURE SQUARE (N)3 
FORMAL N FIXED; 


IF A THEN RETURNS 


END SQUARES 


IF B THEN RETURNS 
ELSE DOs SQUARE (C); 
RETURNS 
END; 
END CUBES 


PROCEDURE ABSVAL €X) FIXED; 
FORMAL X FIXED; 
RETURN CIF X LSS 0 THEN = X 
ELSE + X)3 
END ABSVAL3 


Conweot 


Procedure=name SQUARE is called 
from some point in a program. 

A value for datatname (N) is 
passed by the calling 
statement. 


Two proceduress one nested 
within the other» are declared. 
The procedure SQUARE can be 
invoked only from within the 
procedure CUBE. . 


A function procedure returns 
the absolute value of the 
actual parameter passed. The 
IF expression within the RETURN 
statement passes back the posic 
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PROCEDURE 


cont 


Exapole 


PROCEDURE MSG CHARACTER (20); 
DECLARE DATA CHARACTER (€20)>5 
RETURN CACCEPT DATA); 

END MSG3 


Commeot 


tive value of the parameter. 


A function procedure accepts a 
message from the console printer 
and passes it back to its 
invoking statement. For 
example» 


IF SUBSTROMSGs O» 3) EQL 
el fe SS Tea 

THENe oo 

ELSE eeet 


SEGMENT-STALTEMENT.s 


The SEGMENT statement divides program object code into overlayable 
sections in order to reduce the runstime memory requirements 
of the program. 


SYNTAX. 
The syntactical structure of the SEGMENT statement is as follows: 


SEGMENT Csegment-name) 3 


DESCRIPTION. 
If no SEGMENT statements appear» the whole program is one 
resident segment. All segments are overlayable. 


Segment names must begin with a letter and cannot contain more than 63 
characters. If a program is to be SEGMENTeds the first statement with= 
in the program should be a SEGMENT statement. If the first SEGMENT 
statement appears within the body of the programs» everything up to god 
josluding this segment is the first segment. A warning message 

appears in the printout. 


Segments may themselves be grouped into pages (Crefer to SEGMENT.PAGE 
statement» page 525). 


When unique segment=names are specified» they imply that unique program 
segments are to be created at compilestime from the point of insertion. 
Nonsunique names imply that a continuation of an already existing seg= 
ment is to be continued and is to be gathered by the compiler. 


Procedures and DO groups can extend into more than one segment» but 
Must -begion.aod_eog within the same segment. In general» for efficient 
programming» procedure and DO groups should be completely contained 
within the range of a single segment=name. 


Certain statements in UPL contain subordinate statements. <A SEGMENT 
statement that immediately precedes a subordinate statement applies 
only to the subordinate statemente The IFeeeTHENe ee ELSE» CASE» READ> 
WRITE» and SPACE statements contain subordinate statements. 


At run=time» no UPL statements are required to access a non-resident . 
program segment. Such action is entirely the responsibility of the MCP. 


NOTE 
Array data™names can also be memory 
partitioned. Refer to the PAGED 
option in the DECLARE statement. 


EXAMPLES. 
Examples describing the use of the SEGMENT statement are as follows: 


In the above examples 
technique. 


SEGMENT 
cont 


Exawele 


SEGMENT CONE)D$ 


eee CStatements) 


SEGMENT (TWO); 
oe (statements) 
SEGMENT CTHREE)S 
ae Cstatements) 
SEGMENT CTWO)s 
ee (statements) 
SEGMENT CFQUR)3 
oe (statements) 
SEGMENT CTWO)3 
wae Cstatements) 
SEGMENT C(FOUR)S 
he (statements) 


SEGMENT (€N); 


CQumeot 


First segment. 


Second segment. 


Third segment. 


This segment is gathered with 
the second segment. 


Fourth segment. 


This segment is gathered with the 
second segment. 


This segment is gathered with the 
fourth segment. 


program control is not affected by the gathering 
The advantages of using such a technique allow for 


optimum use of memory allotment at runtime. 


IF TEST EQL OK THAN ABX = 43 

ELSE SEGMENT CERROR)> 
DOs MARK.ERRS 
RETURN; 


END; 


The statement following ELSE is in a 
separate segment and is called in 
when the datasname TEST does not 
equal datasname OK. MARK.ERR is 

a procedure call and should also 

be in the segment ERROR. 


SEGMENT sPAGE.-STAIEMENT. 


The SEGMENT.PAGE statement allows program code dictionaries and the 
corresponding code segments to be paged» thus reducing dictionary 
memory requirements for programs with many segments. 


SYNTAX. 
The syntactical structure of the SEGMENT.PAGE statement is as follows: 


SEGMENTsBAGE € segment=name QE page=name ) 3 


DESCRIPTION. 

The segment=name specifies the name of a code segment to the compiler. 
Non=unique names within a page are gathered.s« Segment=names must be 
unique regardless of which pages contain them. 


The SEGMENT statement can also occur in the source languages and the 
effect depends upon the uniqueness of the segment=name. 


Unique segment=enames that follow a SEGMENT.PAGE statement are contained 
in that page. 


Two classes of nonsunique segment=names are possible. One is the re= 
occurrence of a segment*name in the current pagee The segments are 
gathered within the page. The second is the reoccurrence of a 
segment=name not in the current page. The current page is altered and 
the segment is gathered properly. A following unique segment=name is 
included with the new current page. A warning message also appears on 
the printsout when the page is implicitly altered. 


Sixtysfour unique names are allowed in one page. 
The pagename specifies the name of the segmentsdictionary. Nonsunique 
names are a continuation of the existing dictionary. Sixteen unique 
pagesnames are allowed. 

EXAMPLES. 


Examples describing the use of the SEGMENT. PAGE statement are as 
follows: 


~Exaoele. CQmwoeot 


SEGMENT.~PAGE CAA of ONE); A paged segment dictionary is created 
. with one entry called ONE. 

SEGMENT (BB)>s Page ONE contains segments AA and BB 

; - while page TWO contains segments CC and 
6 DD. The rewoccurrence of the SEGMENT 
° (BB) statement changes the current page 
° back to page ONE. The SEGMENT.PAGE CODD 


a2 0 


SEGMENT.PAGE 


cont 


Exagole CQouent 


SEGMENT.-PAGE CCC of TWO)3 OF TWO) is therefore required to continue 
e the DD segment. 


SEGMENT (DD); 


SEGMENT (BB)3 


SEGMENT.PAGE (DD OF TWO); 


USE-QECLASATION-SIAIEMENT. 


The USE statement declares specific datasnames in a defined 
structure within a procedure. 


SYNTAX. 
The syntactical structure of the USE statement is as follows: 


USE ¢ datasnamew1[ 0» datasmname=2]...J]. QE data=namen33 


DESCRIPTION. 

The USE statement allows the programmer to declare only those data= 
names desired within a structured list of datatnames. The compiler 
generates FILLER wherever necessary to complete the structure. This 
results in more rapid procedure entrance and less memory utiliz= 
ation than if the whole structure were declared upon each entrance 
to the procedure. 


The USE statement must appear within a procedure. That is» it may not 
be used on lexic tevel 0. 


The structure being referenced must have as its 01 level a DUMMY 
REMAPS declares must not contain arraysSs and must be contained within a 
DEFINE statement. 


The DEFINE statement may contain only the one structure. 


EXAMPLES. 
Examples describing the use of the USE statement are as follows: 


Exauale Cooment 


DECLARE PPB BIT (1440); The space to be 
remapped. 


DEFINE PPB. DEC AS # . The DEFINE for 
the USE statement. 


DECLARE 01 DUMMY REMAPS PPB» The required 
DUMMY 01 level. 


02 PROGeNAME CHARACTER (€10)>s Remaps and the 
layout of memory 
Spare. 

02 PROG.-DATA.DICT RIT (€112)>,» 

02 PROG.SEC.DICT BIT.(€112)>» 


02 PROG-SORT.-SPAD BIT (28) #35 
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USE 
cont 


Exawole 


PROCEDURE GET.DICTs 


USE CPROG.DATA.DICT>» 
PROG.eSEC»DICT) 


OF PPB.DECs 


Conugent 


The PROCEDURE in 
which the USE 
statement appears. 


Only two memory 
spaces are allo- 
cated as address™ 
able. The rest 
of the data*name 
PPB is considered 
FILLER. 


SECTION 6 


EXECUTABLE STATEMENTS 


GENERAL: 


Executable statements perform the data transformations and the 
decision=making functions of a UPL Program. 


Executable statements are given in alphabetical order. The format of 
each statement is described in the following order: 


ae Purpose. 

be Syntaxe 

ce. Description. 
de Example. 
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ARRAY PAGE TYPE 


ABBAY.-CAGE_-IYEE. STATEMENT: 
The array page type statement specifies whether a page need be written 
to disk when it is no longer needed in memory. 


SYNTAX. 
The array page type statement syntax is as follows: 


MAKE sBEADs ONLY 
MAKE sBEADsWBITE 


( paged@array=name»s \page=number () 
expression 


DESCRIPTION. . 

All paged arrays are originally read/writee <A page can be made read= 
only after it has been initialized. It is then not written to disk 
each times» and it is no longer required in memory. It can be made 
read/write again with the MAKE.-READ.-WRITE statement. 


Pagedtarray™name must be an array that has been declared PAGED. 


Pagesnumbersexpression must result in a valid number from 0 to N@=1 for 
an N page array. It is the programmer's responsibility to calculate 
the number of each page being specified in the array page type 
statement. 


Lassroment | 
ASSIGNMENTSTALTEMENT. 


The assignment statement is used to assign the value of an expression 
to a specified datactname. 


SYNTAX. 
The syntactical structure of the assignment statement is as follows: 


Literal 
data=namer2 


datasnamewl 
expression=1 


Function Designator 


literal 

datasname=3 
operator 

expression=2 


Function Designator 


DESCRIPTION. | 
The characters := (colons equal) and # Cleft arrow) are called the 
assignment symbols and are read “is replaced by." 


The value of the total expression to the right of the assignment symbol 
is assigned to data=name 1. 


A datasname must have been previously declared before it can be used. 
Each data=name may be of different type Clength) across the assignment 
symbol with justification and alignment as follows: 


Reclacatioon.lyoes Conmeots 


FIXED to FIXED No change occurs. 
CHARACTER to CHARACTER Data is left=justified with least>= 


significant truncation or space 
Chexadecimal 40) fill. 


Alt others Data is right-ejustified with most- 
significant truncation or zero fill. 


The optional operator clause implies one of the following entries» 
which are in order of precedence: 


ASSIGNMENT 


cont 


“Qpecatec  «~Cerments 
s= or «+ Replace and delete left part. 
<< Replace and delete cigbht part. 


Must be higher than any operator to its 
right and lower than any operator to its 


left. 
+ Unary plus. 
- Unary minus. 
* Multiplication. 
/ Division. | 
+ Addition. 
= sueeeneeianas 
LSS or < Less than. 
LEQ or < Less than or equal 0's 
EQL or = Equal to. 
GTR or > Greater iin: 
GEQ or > Greater than or equal to. 
NEQ or # Not equal fe. 
NOT Explicit NOT Logic. 
AND. Explicit AND logic. 
EXOR Explicit Xclusive OR logic. 
OR Explicit OR logic. 
CAT Concatenate. 
MOD Provides tie Wanasnder of division. 


s= or @& Replace delete jeft part. 
<< 


Replace delete pigbt part. 

Must be higher than any operator to its 
right and lower than any operator to its. 
left. 
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ASSIGNMENT 


cont 


A data=name or an address~generating function Crefer to SUBSTR» page 
8-25) gpust appear to the left of replacement operators within an 
expression in the assignment statement. <A data=names however» may be 
the object of another replacement operator in the expression» such as 

A s= B + X t= C$ or ACI) := I s= Bs. Any assigned datasname is altered 
onty from its points of assignment in a leftstosright order. Any pre- 
vious reference to the datasname to the left within the overall state>- 
ment retains its prior values and any other reference to the right uses 
the newly assigned value. — 


The replacement operator (::= or :<) is similar in function to the 
usual assignment symbol» := or <«. The two differences are: first» 
that the replacement operator gyst be used within an expressions ands 
seconds that the address of the datasname to be used with the next term 
during expression evaluation is the datasname to the left of the 
operator. 


The unary operators (+» =» NOT) may be used to the right of any other 
overator. 


A semicolon terminates the assignment statement. 


EXAMPLES. 
Examples describing the use of the assignment statement are as follows: 


Exaneles Couneaots 


TAGA t= TAGB3 | Datasname TAGA is replaced by 
the value contained in data*™ 
name TAGB. 


TAGA := @(€4)C1@3 . TAGA is replaced by a hexam 
decimal bit string. The bit 
string is an EBCDIC A. 


TAGA s= A+ B=" C * E / F + Datasname TAGA is replaced by 
(4 * CA = B) / (B = C))3 the derived value of the given 
expression at object runtime. 
TAGA := TAGB s= TAGC = O03 The entire set of data=names 
is set to 0 (zero) at object runs 
time. 


In the following example DECLARE Al FIXED» Bil CHARACTER (€2)» C1 BIT 
(4): 


Exanoles Conwents 


Al := B1 s= C1 s= OF | All datasnames are set to 0. 


ASSIGNMENT 


cont 


Step 


Step 


Step 


Step 


Step 


Step 


Step 


In the 


Conggots 


ALL datasnames now contain a value of 
binary 7 €00.--0111). 


The "7" entry denotes an 8=bit Cbyte) 
representation of the value of a 
numeric 73 therefore» Bl contains F740» 
or 6329296 in binarye 


NOTE 


There is no intrinsic conversion 
between data types. The CONV function 
must be used if conversion is desired. 


Exapoles 
Oy 
Aq. 20784, 22-0 e+ Ty 
3% 
Al $s Ri $= wz ws 
4. 
Ad? e255 7 
Bi := "AAS 
5. 
Bil s= ALS 
6% 
Ci := B13 
vr 
B41 t=" C1 
B. 
B1 s= Ci CAT C1 CAT Cl 
CAT C13 


Al now contains the binary value 
COweeolL1111411» and B1 contairs the 
hexadecimal equivalent of the 
characters AA (C1 C1)» binary 
1100000111000001. 


Bl now contains the hexadecimal value 
of OOFF»s binary 00.-.--00011111111. 


C1 now contains the hexadecimal value 
of F» binary 1111. 


P1 now contains the hexadecimal value 
cf OOOF» binary 0000000000001111. 


B1 now contains the hexadecimal value 
of FFFF» binary 1111111111111111. 


following example DECLARE AA (10) FIXED» BB FIXED? 


NOTE 


AA (10) is a@ 10°element array. 


Step 


step 


Step 
step 


Step 


Step 


Step 


Step 


step 


~$tep 


1. 


2e 
AA 


Al 


Be 


Exapales 


NOTE 


ASSIGNMENT 


cont 


CQnweots 


Set BB equal to 5 (€00...101). 


Save the address of AA (8B) or 
AACS). Set BB = 3. Then use 
the address AA(5) and set it 
equal to 3s 


The above two statements are 
equivalent to steps 3» 4» and 5. 


2= 53 

(BB) := 35 

2= 33 

= BB LSS CC; 


(BB LSS CC) + 
(BB GTR CC)s 


DECLARE CAi1» BB» CC» DD) FIXED; 


BB 


ee eo se 
on ott 


NO vl 
‘ee wo ‘eo 


Set datasname BB equal to 5» 
thens 


Set datacsname AAC5) equal to 
39 thens 


Set datasname BB equal to 3. 


If the condition where 8B is 
less than CC is TRUE» then Al 
is assigned i3 if the condi 
tion is FALSE» then Al is 
assianed 0. 


Tf the content of datas™name BB 
eguals the content of data=- 
name CC» then Al is assigned 
03; otherwise» Al is assigned 
le 


These three could have been 
written as follows: 


DOD := 1 + CC := 1 + BB ?= 535 


Ai and BB are both equal to 
13. 


Al equals 13 and BB equals 6. 
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ASSIGNMENT 


cont 


The following two examples use the delete left replacement operator. 


Exapeles Coumeats 
DECLARE CAA»sCC) CHARACTER (€2)> BB CHARACTER data™name CC is 
BIT C€4)3 replaced by the value of the 
AA s= BB := CC 3= "63 CHARACTER literal 6. Oata- 


name CC contains hexadecimal 
F640 and the CHARACTER data™ 
name CC is deleted (Cleft 
part)» and data=sname BB is 
replaced by the value of the 
CHARACTER Literal 6. Data 
name BB contains hexadecimal 
66 The BIT datasname BB is 
deleted (left part)» and the 
CHARACTER datasname AA is 
assigned the value of the 
literal 6. Datasname AA 
contains hexadecimal F640. 


X s= AA + BB = 63 Data~name BB is replaced by 
the literal 6. Data=name 8B 
1s deleted» and the literal 6 
is added to datasname AA. The 
sum is then assigned to data- 
name Xe 


The following four examples use the delete right part replacement 
operator. 


Exanoles Cowneots 


AK ‘f= O68. Ste CC. 22s. 683 The CHARACTER datasname CC is 
replaced by the value of the 
CHARACTER Literal 6. Data= 
name CC contains hexadecimal 
F640. The CHARACTER Literal 
is deleted Cright part)» and 
BIT datasname BB is replaced 
by the value of CHARACTER 
datasname CC. Data™name BB 
contains hexadecimal 0. The 
replacement is type CHARACTER 
to BIT. Datatname CC is 
deleted (Cright part)» and 
CHARACTER data=name AA is 
assigned the value of data= 
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Exapoles 


PROCEDURE SQRF (X) FIXED; 
FORMAL X BIT (€4)5 
AA = SQRF CBB :3= CC)3 


ASSIGNMENT 


cont 


Coumaeots 


name BB. Datasname AA 
contains hexadecimal 0000. 


Datasname BB is replaced by 
the literal 6. The literal 6 
is deleted» and datasname BB 
is added to datasname AA. The 
sum 1S assigned to data™name 
Xe 


The delete=right*part is used 
in the procedure call to force 
the type and length of the 
parameter to agree with the 
type and length in the FORMAL 
statement of the PROCEDURE. 


This is a syntax error because 
CAA + BB) is not a data™name 
or an address=generating 
expression. It is a value= 
generating expression. 


The following eight examples describe the event order in assianment 


statements. 


Examoales 


DECLARE CA» Bs C) FIXEDS 
A $= B 3:= C s= O3 


A ?= B + Zlotel.€ + liz. Q? 


Couueats 


A» Bs» and C are all equal to 
O. The order of events is 

as follows: C is replaced by 
O» C is deleted» B is replaced 
by O» B is deleted» A is 
assigned O» and the statement 
is comoleted. 


A equals 2» B equals 1» and C 
equals 0. The order of events 
is: C is replaced by O» C 

is deleted» 1 tis added to Qs» 
and B is replaced by the sum. 
Thens B is deleted» 1 is added 
to the sums» A is assigned the 
results» and the statement is 
completed. 


The underlined parts are syn- 


679 


ASSIGNMENT 


cont 


Exapoles Conoesots 


tax errors. A Literal may not 
be the object of a replacement 
operator. 


A t= B t3= C s= O3 The order of events is as 
follows: C is replaced by 
O» C is deleted» B is replaced 
by O» 0 is deleted (this is a 
replace delete right part 
operator)» A is assianed the 
result. A» Bs» and C all equal 
0. 


A-Z3=.B := C 3= 03 Syntax error. The assignment 
operator must be a delete=> 
left-part. 


A s:= 1 + B t= C t3= OF The order of events is as 
follows: C is replaced hy 
O» 0 is deleted» B is replaced 
by C» B is deleted» 1 is added 
to Cs» and the sum is assigned 
to A. A now equals 1» and B 
equals C» which equals 0. 


A := 1 + B st= 1 + C 8= O83 | The order of events is as 
follows: C is replaced by 
O» C is deleted» 1 is added to 
O» B is replaced by this sum» 
the sum is deleted» 1 is added 
to Bs» and this sum is assigned 
to Ae A = 2» B= 1» C = O« 


A s= 8 + Jiss= 1 + C t= OF Syntax error. A Literal may 
not be the object of a 
replacement operator. 


BUMP STATEMENT. 


The BUMP statement is used to increment the contents of a data=name by 
a value. 


SYNTAX. 
The syntactical structure of the BUMP statement is as follows: 


datasname=2 


BUMP data=name-1l BY 


expression 


DESCRIPTION. 
Datasname 1 is incremented by the binary value of data™name 2 or the 
expressions and the sum is assigned to datasname 1. 


NOTE 
The sum is calculated on the lLowsorder 24 
bits of datastname 1» and any bits to the 
left are zero filled by the assignment 
operation. 


If the BY option is omitted» a value of binary 1 is assumed. 
The BUMP may also appear within an expression. 


EXAMPLES. 
Examples describing the use of the BUMP statement are as follows: 


Exapoles | Conupeots 

BUMP X3 . Add 1 to Xe 

BUMP X BY 43 Add 4 to X. 

BUMP X BY Z>3 Add the value of Z to X. 

A s= BUMP X BY Z3 Add the value of Z to X and assign the 
value to Xe Then assign the value of X 
to Ae 

IF (CBUMP X BY Z) EQL ZERO Add the value of Z to X» assign the 

THENeoed value to X» and then perform the 
ELSE seed comparison. 
BUMP A BY B t= C3 Assign the value of C to B and then 


add the value of C to Ae Notice that 
C is added to A because of the 
replacement delete left part operator. 


X := BUMP A BY B := C$ Replace B by the value of C» delete Bs» 
add C to A»s and assign the value to A 
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BUMP 
cont 


Exareles 


PROC.B. CBUMP X)>5 


PROC.B CCBUMP X)); 


Cooneots 
and to Xe 


Datasname X is bumped by 1 and then 
passed by name to procedure PROC.B. 


The same as above except the pass is by 
value because of the extra set of 
parentheses. 


CASE-STALTEMENT. 


The CASE statement selectively executes me one Statement within the 
CASE group of statements. 


SYNTAX. 
The syntactical structure of the CASE statement is as follows: 


data=name 


Cage 


conditionalsexpression 


statement_ 3 
[statement]; 
[statement]é 


[statement ]z 


END CAset> 


DESCRIPTION. 

At execution time the datasname or conditional expression is valued as 
a binary. This value is used as a selector to choose from among the 
Statements in the CASE groups such as a value of 2 selects the third 
statement. The statements in the group are numbered from 0 to 

N-1 for N statements. A negative value or avalue greater than the 
number of statements in the CASE group causes an execution=time error. 


All valid UPL statements» including nested CASE statements» DO-group 
statements» and IFeeeTHENee ELSE statements» are allowed and are 
counted as single statements. 


After the selected statement has completed executions program control 
passes to the statement immediately following the END CASE statement. 


Null statements Crefer to page 6737) may be used to satisfy statement 
positions where no~operation condition is desired. 


If a CASE statement is imbedded in a DO"groups» then the execution of an 
UNDO statement terminates the DOtgroup and control passes to the end 
of the DO“group. 


If a CASE statement is imbedded in a procedures the execution of a 
RETURN statement Crefer to page 6740) passes control back to the state 
ment that invoked the procedure. 


CASE 
cont 


HOTE 


There exists an expression form of the 
CASE statement that has a different 


syntax 


and produces a different result 


(refer to page 874). 


EXAMPLES. 


Examples describina the use of the CASE statement are as follows: 


Exageles 


CASE X35 
PROA> 
PROBs 
PROC» 
END CASE> 


CASE CA * B) MOD 25 
DO> 
IF X THEN UNDO 
X 8= X + 53 


ENOD> 
CASE X> 
PROKs» 
PROL*> 


END CASES 
END CASE> 


Coomeots 


The value of X determines which procedure is 
called.  X may vary in value from C thraugh 
Qe If it is greater than the number of 
statements in the CASE statement» then a 
runstime interrupt occurs. 


The value of the expression is used to 
choose the statement to execute. A DO 
statement or a CASE statement is considered 
as one statement. 


CHANGE. STATEMENT: 


The CHANGE statement is used to dynamically alter the attributes of a 
file during program execution. 


SYNTAX. 
The syntactical structure of the CHANGE statement is as follows: 


CHANGE internal-filesname [Q (dynamic file attribute 


(Ce dynamic file attribute J] «+. JQY Zé 


DESCRIPTION. 

The CHANGE statement alters the attributes associated with a file. Any 
attributes declared in a FILE statement can be changed. The changes 
become effective when the file is OPENede If the file is OPEN when the 
CHANGE statement is executed» it must be CLOSEd and re=OPENed to effect 
the changes. 


Attributes not changed remain as originally declared. 


NOTE 
Refer to the FILE statement (page 7*7) for 
the default attributes associated with each 
device type. 


DYNAMIC ATTRIBUTES. 
The syntax for each of the dynamic attributes is as follows: 


MULTI-FILE.ID 


MULII2zEILEsIQ *= expression 


The expression is concatenated with a 10"character string of EBCDIC 
blanks with the expression on the left. The teft=most 80 bits (10 
characters) then become the MULTI.FILE.ID. 


If the expression is a bit-string» it will be left justified and right 
padded with spaces. 


Exanoless. — 
Examples describing the use of the MULTI.FILE.ID attribute are as 
follows: 

Exapoles Comments 


MULTI.FILE-ID t= "MASTER" The MULTI.FILE.~ID is changed to 
“MASTER ". 


MULTI-FILE~ID := @C4)FFF®@ The MULTI.FILE-ID is changed to the hexa= 
decimal string @C4)FFF404040404040404048. 
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CHANGE 


cont 
Examoles : Cenweots 
-Notice that this name could not be 
entered from the console printer (CSPOQ)3 
and this file cannot» therefore» be 
accessed by any SPO command. 
FILE.ID 


EILEsIQ *= expression 


The expression is handled the same as the MULTI.FILE.ID expression. 


Examolees | 
An example describing the use of the FILE.ID attribute is as follows: 


Exauale | Conpeot 
FILE.ID t= "PAYROLL" The FILE.ID is now "PAYROLL ae 


LABEL.TYPE 


BUBBOUGHS 
LABELsIYEE *= { ANSI 
UNLABELED 


DEVICE 


DEVICE = expression 


Where the expression must result in a bit-string of 10 bits» the hard 
ware type (refer to the table below) is the lLowrorder Cright=™most) six 
bits and the variant is the highworder Cleft=most) four bits. 


The devices hardware type» and variants are as follows? 


Qevice 
Invalid 


96“Column Punch 

8O"Column Punch 

96"Column Reader/Punch 
96=Column MFCU 

96-Column Reader/Punch/Printer 
Paper Tape Punch 

Paper Tape Reader 


Printer 


Invalid 

Read=Sorter 

Any Head per Track Disk (1As1C»2B) 
Head per Track Disk (1A»s1C) 

Head per Track Disk (2B) 


Only Disk Cartridge 


Hardware 
~-lyee.- 
0 
1 


2 


Same 


Same 


Same 
Same 
Same 


Same 


CHANGE 
cont 


Yaciaots 


as Printer 


as Printer 


Backup tape or disk 
Backup tape 

Backup disk 

Backup tape or disk 
Hardware cnly 
Backup tape only 
Backup disk only 


Backup tape or disk 
onty 


Forms (Forms may be 
requested along 


with any of the 
aboves 0-7.) 


as any disk 
as any disk 
as any disk 


as any disk 


CHANGE 


cont 

Only Disk Pack | 15 Same as any disk 
Disk Pack or Cartridge 16 Same as any disk 
Any Disk 17 0 = Serial 

; 1 = Random 

96-Column Punch/Printer | 18 

96-Column Reader : 19 

Invalid | 20 

80=Column Reader | 21 

Console Printer (SPQ) 22 

Invalid ! 23 

9~-Track Tape (NRZ) | 24 

7-Track Tape (NRZ) 25 

9-Track Tape (PE) . 26 

7“Track Tape Cluster | 27 

9-Track Tape Cluster 28 

9-Track Tape : 29 

7“Track Tape | 30 

Any Magnetic Tape | a1 

PARITY. 


PARITY expression 


The lowctorder bit of expression is interpreted as follows: 0 is ODD» 
1 is EVEN. : 


TRANSLATION. 


IGANSLAIION *= expression 


CHANGE 
cont 


The lLowsorder three bits of expression are interpreted as follows: 
000 is EBCDIC» 001 is ASCII» and 010 is BCL. 


BUFFERS 


BUEEEBS := expression 


The lLowsorder 24 bits of expression are interpreted as a positive 
number representing the number of buffers. 


BOCK 2= expression 


The lLowtorder bit of expression is interpreted as follows: 0 is NOT 
LOCKed» and i is LOCKed. 


LOCK 


OPTIONAL 


QRPIIQNAL *= expression 


The lowtorder bit of expression is interpreted as follows: 0 indicates 
that a file must be present» and 1 indicates that a file is optional. 


VARIABLE 


YABIABLE *= expression 


The low-order bit of expression is interpreted as follows: 0 is fixed 
Length» and 1 is variable length. 


SAVE 


SAYE = expression 


The lLowtorder 24 bits of expression are interpreted as a positive 
number representing the number of days this file is to be saved. 


RECORD.SIZE 


BECQBDeSIZE *= expression 


CHANGE 
cont 


The lLowsorder 24 bits of expression are interpreted as a positive 
number representing the number of characters in a record. - 


RECORDS-PER-BLOCK 


BECORRSsCEBa BLOCK *= expression 


The lowsorder 24 bits of expression are interpreted as a positive 
number representing the number of records in a physical block. 


BEEL *= expression 


The lLowtorder 24 bits of expression are interpreted as a positive 
number representing the number of reels of tape for this file. 


REEL 


NUMBER.OF AREAS 


NUMBESs2QEeABEAS t= expression 


The lLow=order 24 bits of expression are interpreted as a positive 
number representing the maximum number of disk areas that can be opened 
for this file. 


BLOCKS.-PER.AREA 


BLOCKSsPEBsABEA *= expression 


The lowsorder 24 bits of expression are interpreted as a positive 
number representing the number of blocks of records in a disk area for 
this file. 


PACK.ID 


PACKeIQ t= Supheveier 


The expression is interpreted as the 10"character PACK.ID. It is 
handled the same as MULTI.FILE.[D. 


CHANGE 
cont 


SINGLE.PACK 


SINGLE:BACK *= expression 


The lLowsorder bit of expression is interpreted as follows: 0 is NO» 
and 1 is YES. The YES requires the file to be contained on one 
removable disk device. 


ALL-AREAS.AT.OPEN 


ALLsABEASsATsQGEN t= expression 


The lowsorder bit of expression is interpreted as follows: 0 is NOs and 
1 is YES. The YES requires all areas of the file to be allocated at 
file-open time. ¢ 


AREA-BY-CYLINDER 


ABESsBYeCYLINDEBR *= expression 


The lLowtorder bit of expression is interpreted as follows: 0 18 NOs and 
1 is YES. The YES requires each area of the file to begin on a 
cylinder boundary. 


EU.SPECTIAL 


EUsSCPECITAL *= expression 


The lLowtorder 24 bits of expression are interpreted as a positive 
number representing the Electronic Ynit CEU) of a head=perw-track disk 
or the system drive number of a removable disk upon which the first 
disk area of this file is located. 


EU. INCREMENTED 


EVaINCBEMENITED *= expression 


The lLowmorder 24 bits of expression are interpreted as a positive 
number representing the increment to be added to the current EU or 
drive number for the location of the next disk area associated with 
this file. When the drive requested exceeds the number of reads=per= 
track EU*s or the number of system drives» the next area iS Opened on 
the EU.SPECIAL drive. 


CHANGE 
cont 


USE.INPUT.BLOCK ING. 


URbalLEVTsBLOCKING 


Specifies the record and block size are to be taken from the disk file 


header record. 


SReSTATION. 


eBeSTALLON = expression 


Specifies which read station(€s) is Care) to be used cn a sorter reader 


file. 


END.QF.PAGE ACTION. 


ENDsUE.CAGEACTION 


Specifies the ON FOF statement is 
(channel 12) on the printer. 


EXAMPLES. 


to he executed at the end of a page 


Examples describing the use of the CHANGE statement with its various 


attributes are as follows: 


BExagoles 


CHANGE IN-FILE TO ¢ 


DEVICE := @€2)00101@» 


MULTI.-FILE.ID := ES 9 


Pies LD 22° "DT SK Ss: 
RUFFERS := 4s» 
LOCK = @C€1)®@» 
RECCRD.SIZE t= 189» 


RECORDS.~PER-BLOCK 


NUMBER.«CF eAREAS t= ds» 
BLOCKS-.«PER-AREA t= 2,» 
AREA-BY-CYLINDER = 1» 


SINGLE-«PACK <= I» 

EU.SPECIAL t= O» 

EU.e.INCREMENTED ¢= 1» 
> 


Coneeots 


IN-FILE is changed to DISK» 
SERIAL» test/DISKs with four 
BUFFERS» to be LOCKed»> a record 
size of one disk segments one 
full track per block with eight 
areas» two blocks per area» each 
new area at the beginning of a 
cylinders starting on drive O for 
the first area with each 
additional area on a new drive. 


CLEAB-STAIEMENT. 


The CLEAR statement sets a datasname to a standard UPL= defined value. 


SYNTAX. 
The syntactical structure of the CLEAR. statement is as follows: 


CLEAB data=™name [ Cg datasname"2] gg eee ] z 


DESCRIPTION. | | | 
Datasnames that are to be CLEARed must be arrays. The entire array is 
CLEARed. Paged arrays» howevers cannot be CLEARed. 


Multiple datasnames can be specified and gust be separated by commas. 
A datasname DECLAREd as being type CHARACTER is CLEARed to spaces 
(hexadecimal 40). Alt other types are CLEARed to binary O's. 

Paged arrays may not be CLEARed. 


A semicolon must terminate the CLEAR statement. 


CONDITIONAL INCLUSION 


CONDITIONAL INCLUSTIONI STATEMENT: 
The conditional inclusion statement conditionally includes UPL source 
code during compilation. 


SYNTAX. 
The syntactical structure of the conditional inclusion statement is as 
follows: 


§ IE (NQI] symbol-name tc) 
OB 


(NOTJ symbol=name2 ] eas | 


UPL*source statements 
C8 ELab UPL~source statements] 


&§ END 


DESCRIPTICN. 

The truth or falsity of the logical combination of the symbol=names 
determines the UPL™sSource statements that are included for compilation. 
If the result is trues the immediately following UPL statements are com 
piled. If the result is false and the & ELSE portion exists» the UPL 
statements following the & ELSE are compiled. The & END statement 
terminates the conditional inclusion statement. 


The conditional inclusion statement is an UPL source Language statement 
and can» therefores be nested. Nested conditional inclusions cannot 
overlaps that is» each is matched with the most recent unmatched & IF 
statement. . 


EXAMPLES. 


Examples describing the use of the conditional inclusion statement are 
as follows: 


Exapoles Comoeots 
& SET SW1 SW2 SW3 The following statements are 
3 compiled into the program: 
& RESET SW4 SW5 DECLARE CAsBseCeDesEoFeGeaH) FIXED; 
C = D3 
DECLARE CAsBeCeDeoEsF »GeH) FIXEDs E := Fs 
F = G> 
& IF SWS G = H> 
A t= B> 
& IF Swi 
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Exageoles 


CONDITIONAL INCLUSION 


cont 


CQoopeots 


CONDITIONAL PAGE | 


CONQITIZTONAL. CAGE STATEMENT: 
The ccnditional page statement skips to the top of the next page on the 
compiler print™oute 


SYNTAX. 


The syntactical structure of the conditional page statement is as 
follows: 


§ GAGE 


DESCRIPTION. | 
The conditional page statement is used with other conditional 
statements to control the compiler printout. 


The & Campersand) must be in column 1- No semicolon is required at the 
end of the conditional page statement. 


CONDITIONAL-SYMBOL.STAIEMENT: 


The conditional symbol statement defines and sets or resets symbols 
used in the conditional compiler statement. 


SYNTAX. 
The syntactical structure of the ccnditional symbol statement is as 
follows: 


( sex 


g symbol=name=1 [ tsymbol-name-2) padisil 
| RESEL 7 


DESCRIPTION. 

The conditional symbol statement can appear anywhere in the UPL source 
Language. The first occurrence of a symbol*name creates the symbol 
name and allows any following conditional compiler statements to test 
its status (set or reset). 


Symbol=names can be duplicates of datasnames without causing syntax 
errors. 


The scope of a symbol=name is from the first conditional symbol state- 
ment in which it occurs to the end of the input source code. That is» 
it can be referenced by any following statement without regard to 
lexic level boundaries. 


The conditional symbol statement must contain an & Campersand) in 
column 1 and be wholly contained in one card. Columns 72 through 80 
of the card are for the sequence numbers 


NOTE 
The semicolon is not part of the 
conditional symbol statement. 


EXAMPLES. 
Examples describing the use of the conditional symbol statement are as 
follows: 


Exampoles CQnoeots 
& SET A Set symbol=name A. 
& SET ABC Set symbol=names A» Bean C. 
& RESET B Reset symbol@name B. 


DECREMENT 


QECREMENT.STAIEMENT, . 
The DECREMENT statement is used to decrease the contents of a data™name 
by a value. 


SYNTAX. 
The syntactical structure of the DECREMENT statement is as follows: 


datasnames2 


oY 2 


expression 


DEGREMENI data-namen1 


DESCRIPTION. 

Data-name 1 is DECREMENTed by the binary value of data™name 2 or the 
expression. If the BY option is omitted» a vatue of binary 1 is 
assumed. The contents of data™name 1 are pvermanently altered by the 
DECREMENT statement. If datasname 1 is Larger than 24 bits» O's are 
padded on the left. 


The DECREMENT statement may also appear within an expression. 


EXAMPLES. 
Examples describing the use of the DECREMENT statement are as follows: 


Exagales 7 Coumeots 
DECREMENT A> Subtract 1 from A. 
DECREMENT A BY 73 Subtract 7 from A. 
DECREMENT A BY Bs; Subtract the value of B from A. 
X = DECREMENT A BY B;3 Subtract the value of B from A 
| and assign the value of A to Xe 
IF CDECREMENT A BY 8B) EQL X Subtract the value of B from A 
THENee od | and then compare A to Xe. 
ELSEeceds 


PROC.B (CDECREMENT X BY A) The datasname is DECREMENTed by the 
, value of A and passed to the proce= 
dure PROC.B by name. An extra set of 
parentheses results if a pass by 
value. 


DO.SIALEMENTs. . 
The DO statement provides the capability to group a set of related 
statements together for programmatic control fcurposes. 


SYNTAX. 
The syntactical structure of the 00 statement is as follows: 


QQ Caroup-namel [EQREYEB] 
statement; 


statement, 


statement z¢ 


statement ~¢ 


END (Caroup=name] 


DESCRIPTION. 

The groupsname options if useds must be a uniaue name on its lexic 
level and must be the same in the DO statement and in its matched END 
statement. 


A set of NO statement groups may be nested» but may not overlap. Every 
END statement is paired with the preceding unmatched DN statement» 
starting at the innermost sete. An END statement is required for each 
DC statement grouning. 


NOTE 
For onurposes of clarity» DO and END 
statements may be thouaht of as being 
a set of parentheses that surround a 
group of statements» thereby binding 
them as one statement for control 
purpoOSeSe 


A 0G statement through its END statement is considered as being a 
single statement. DOG statement groups may be imbedded in CASE state= 
ment arounss IF statements» or another DO statement aroup. A maximum 
of 32 CASE» DU» or IF statements may he imbedded in any one neste. The 
UNDQ statement» howevers terminates up to a maximum of 16 nested DO 
statements. 


Dl» IF» and CASE statements define a code nesting level that is 
displaced under the column marked NL on the listing. Each nest must be 
wholly contained within its outer nest. That is» code nesting levels 
may not overlap. 


DC 
cont 


The FOREVER clause implies that an unlimited iteration of the DO state= 
ment group occurs until an UNDO or a RETURN Statement is executed. The 
execution of a RETURN statement causes control to be passed back from 
the PROCEDURE in which the ONO statement is imbedded. The DO FOREVER 
option has a Limit of 4096 bits of object code. If the FOREVER option 
is not used» no iteration of the (CO statement group occurs. 


EXAMPLES. 
Examples describing the use of the DO statement are as follows: 


Exawoles Comments 
DO> The format of a DO statement requires 
BUMP SUM3 the DO and a corresponding END. 


DECREMENT DIFFS 


ENDs 
IF X EQL 0 One of the two DO statements within 
THEN DQ> the IF statement is executed» and 
BUMP X> then control is passed beyord the 
‘ IF statement. The second DC state= 
é ment is named OTHER» and its END 
: Statement must also contain the same 
BUMP SUM; name. 
END; 
ELSE DO QTHER; 
DECREMENT X>3 
BUMP SUM> 
END OTHER; 
DO THIS.~ONE FOREVER; The 00 statement named THIS.ONE 
IF SUM LEQ ZERO iterates until SUM is greater than 
THEN DO; O- When that condition is reached» 
SUM s= SUM + 13 the UNDO statement following the ELSE 
END; terminates the DO statement. 
ELSE UNDO; 
END THIS.ONES 
PROCEDURE ABC; This procedure contains several DO 
DO ANY FOREVERs statements. The RETURN statement in 
IF X GEQ 0 the last IF statement also terminates 
THEN DO> the DO ANY statement by passing con 
DECREMENT Xs trol out of PROCEDURE ABC. 
BUMP SUM; 
ENDs 


IF SUM GEQ 0 
THEN UNDOS 


END ABC$ 


Examoles 


ELSE RETURNS © 


END ANY>s 


e 
e 


Comments 


DO 
cont 


FINI 


EINILSTAITEMENT. 


The FINI statement signifies the end of source images to be conpiled. 


SYNTAX. 
The syntactical structure of the FINI statement is as follows: 


ELNTZ 


DESCRIPTION. 
The FINI statement is required and must be the last statement in the 
source program. 


ia 


LE-STALTEMENT: 


The IF statement is used to conditionally execute one or two statements 
in a program. 


SYNTAX. 
The syntactical structure of the IF statement is as follows: 


IE conditionalexpression [THEN statement=1 CELSE statement-2] 


DESCRIPTION. 
The conditionalsexpression is evaluated» and the least=significant-bit 
of the result is interpreted as the controller bit. 


If the ELSE clause is pot specified» the controller bit is used to cons 
ditionally pass control to statement-1. If the controller bit contains 
the value ‘of 1» then statement=1 is executed. If the controller bit is 
valued at O» statement-! is ggt executed and control passes to the 
statement immediately following the IF statement itself. 


If the ELSE clause is specified» the controller bit is used to choose 
between statement~-1 and statement~-2. If the controller bit contains a 
value of i» then statement*l is executed and statement*2 is not exes 
cuted. If it contains the value of 0 (zero)» statement-1 is gogt 
executed and statement-2 jig executed. 


DO» IF» and CASE statements can be imbedded within an IF statement. 


Each of these imbedded statements is called a nesting level» with a 
maximum of 32 levels allowed. The nesting=level number is given on the 
source code printsout under the NL column. 


When using such nested IF statements» correspondence between the THEN 
and the ELSE statements must be maintained. That is» the innermost 
Chighest NL number) ELSE is associated with the innermost THEN» and 
corresponding pairs continue outward (toward NL zero). The matching 
ELSE statement is required within nested IF statements. Null 
statements cans however» be used whenever a nomoperation is desired. 


Conditionalexpression evaluation is performed from left=to-right in 
normal order unless parentheses are specified. The result of each 
Operation is applied to the next operand until all operands are 
combined. The right=most bit of this result is the controller bit. 


If all the operands are of type FIXED» all comparisons are signed 
FIXED. If any operand is not of type FIXED» then from that pcocint on 
within the conditional=expression» comparisons are unsigned BIT. 


If all the operands are of type CHARACTER» comparisons are from left= 
to=right. If any operand is non=CHARACTER thens from that point on 
within the conditional™expression» comparisons are type BIT. 


LF 
cont 


The controller bit may itself be used as computational value Crefer to 
the Last examples page 6°35). A semicolon is not required with the IF 
Statement because the subordinate statements end with them. 


NOTE 


There also exists an 


expression form of 


the IFee.-THENee eELSEeee Statement that 
has a different syntax and produces a 
different result from the IF statement. 


EXAMPLES. 
Examples describing the use of the 


Exawoles 
IF X THEN A t= B + C3 


Execution time 
statement when 
time to choose 


IF X EQL 0 THEN 
DOs A := B + C3 
BUMP Xs 
ENO 


IF X = 0 THEN A ?= B + C3 
ELSE A t= X + ¥ 
XYZ t= A> 


‘IF SUBBIT CSTRING» X) 
THEN CALL P13 
ELSE CALL P23 


IF statement are as follows: 


Coonendts 


If the datasname X contains a value 
whose least=significant Cright=most) 
bit is al» the statement following 
the THEN is performed. Otherwise» 
control passes to the next 
sequential source statement. 


NOTE 


to choose the ELSE 
coded is less than the 
the THEN statement. 


If X is equal to 0» the statement 
that follows the THEN is performed; 
otherwises control passes to the 
next sequential statement. Notice 
that the statement that follows the 
THEN is a DO statements which may 
itself contain several statements. 


If X equals O» the statement that 
follows the THEN is performed. If xX 
does not equal O» the statement that 
follows the ELSE is performed. 

After one of the statements is exe 
cuted» control is passed to the 
statement that follows the IF state 
ments that is» the XYZ s:= AS 
statement. 


This is a conditional test of a bit 
string for the least significant bit 
in the string that is returned by 
the SUBBIT function. The rules 
explained in the preceding example 
apply» except that procedure Pi or 
P2 is then called. 


Exapoles 


IF (A + B) = C THEN DOs 
SUM s= SUM + 13 
CALL P13 
END; 

ELSE CASE C = A3 

SUM := SUM + 13 
CALL Pes 
END CASES 


IF A THEN 
IF B THEN 
IF C THEN CALL.C13 
ELSE CALL.C2;3 
ELSE CALL.B2; 
ELSE CALL.A2; 


This 
expression. 


IF 
cont 


Copments 


is a conditional test of an 


Subsequent processes 


depend on the outcome of the evalua= 
tion of the expression (A + B) = C. 
DO and CASE statement groups are 
allowed within IF statements. 


Nested IF statements are allowed to 


any level. 


pairs are defined as shown 


event tree. 


NOTE 


The associated THEN/ELSE 
in the 


FALSE 


FALSE 
FALSE 


TRUE 


TRUE 


A better programming technique 
is to use DO and END statements 
around simple IF statements. 


IF A OR B OR C THEN 
POSITIVES 
ELSE NEGATIVES 


IF (A GTR B) + CA LSS B) 
THEN X = 13 
ELSE X %= OQ» 


If A or B or C ends with the Least 
significant Cright=most) bit a 1» 


the procedure POSITIVE 
and C all have a 0 (Czero) 


If A» Bs 


is called. 


in their Least significant positions 


procedure NEGATIVE 


is performed. 


Each of the two conditional expres® 


sions 
bit» 
for false. 


added together» 


is evaluated and returns a 
1 for true or OQ (zero) 


The two bits are then 
and the lowrorder 


bit of the result becomes the con= 


troller bit. 
equals Bs xX 


In this examples if A 


is set to 0 (zero); 


otherwise» X is set to l. 


LIBRARY 


LIGBBABYSTAITEMENTs 
The LIBRARY statement copies: source language statements from the 
library into the program being compiled. 


SYNTAX. : 
The syntactical structure of the LIBRARY statement is as follows: 


i filename. ( 
§ LIBRARY 
familysfilesnanmeZfile-name { 


DESCRIPTION. 

The source language images contained in the named file are copied into 
the program at the location of the LIBRARY statement. 

The & Campersand) must be in column 1. 


No semicolon is required at the end of the LIBRARY statement. 


The Library file to be copied must be created in advance. The utility 
that creates the library files is invoked as follows: 


ae ? EX UPL/LIBRARY 

be ? FILE DISK = familysfilesname/filestname DISK SERIAL 
ce ? DATA 

d. Any UPL=source Language statements 

Ge ? END 


NULLSTALTEMENT: 


The null statement performs a notoperation function during object 
run=time. 


SYNTAX. 
The syntactical structure of the null statement is as follows: 


DESCRIPTION. . . 
Two adjacent semicolons are used to delimit a null statement. 


The null statement is considered a complete statements» and it can be 
used whenever the syntax requires a complete statement. Its most com= 
mon usage is in the CASE and IF statements to fulfill the syntax 
requirements» but not to perform operations. It also can be used in 
READs WRITE» and SPACE statements. 


The null statement can be used to control events within a compound IF 
Statements howevers this control is more readily accomplished if DO/END 
statements are used within the compound IF statement sequence. 


EXAMPLES. 
Examples describing the use of the null statement are as follows: 


Exagele Conneots 
CASE decodes, The datasname decode is used to select one of the 
PRO.A:3 six statements within the CASE statement body. If 
PRO.B3 the value of decode is a 2 or a 3» no operation is 
; performed. 
, 
PRO.C> 
PRO.D> 
END CASE> 


PROCEDURE CALL 


PROCEDURE CALL SIAITEMENT: 

The procedure call statement passes control to a regular (non=function) 
procedure. After the procedure has been completed» program control 
returns to the statement that follows the calling statement. 


SYNTAX. 


The syntactical structure of the procedure call statement is as 
follows: 


procedure=name | ( parameter [ Ceparameter)... | 2 |i 


DESCRIPTION. 

A procedure call statement must always be a separate statement. That 
is» the procedure call statement gyst Deyec appear adjacent to a 
replacement operator or within an expression. 


The procedure being called must reside within range and cannot be a 
function procedure (refer to section 8). 


Optional parameters must be separated by commas and can be comprised of 
datasnames»s literals» and function procedure designators» in any order. 
Evaluation of the parameter List is performed from leftstortriaht and 
from the innermost set of parentheses. Only a single name or value is 
passed for each parameter. The parameters passed at object runtime 
are matched from Leftetotright with the parameter-names that are cone 
tained in the procedure head statement of the invoked procedure. The 
number of parameters that are passed gyst equal the number of names in 
the procedure head statement. The actual tyne Cor length) passed and 
the corresponding FORMAL type Clength) for each parameter gygst agree 

if the SFORMAL.CHECK compiler option has been used. 


Parameters comprised of single data™names» array elements» or SUBSTRs 
that are not enclosed within an extra set of parentheses are passed=by” 
namee That is» the address» rather than a values of the data=name is 
passed. 


Passed=by*value are parameters comprised of literals» single datasnames 
that are enclosed in an extra set of parentheses» the value returned 
from function proceduress or the result of any expression evaluation. 


A value is not returned from a called procedure. If such a requirement 
exists» the result must be communicated through the use of global data-= 
names or by passing the parameter by name and specifying the corre= 
sponding formal parameter in the crocedure to the left of a replacement 
operator within an executable statement. 


EXAMPLES. 
Examples describing the use of the procedure call statement are as 
follows: 


Exaoeles 
PROX 


IF X THEN PROX; 
ELSE PROY; 


IF ABC THEN AREA CL» W)3 
ELSE VOLM CL» Ws H)3 


AREA CCL)» W * HDS 


PROCEDURE CALL 


cont 


Cooweots 
PRCCEDURE PROX is being invoked. 


Qne of the-.two procedures is called 
depending on datasname X. 


One of two procedures is called. ALlt of 
the parameters are being passed=by™name. 


Both of the parameters are being passed= 
by*value. 


RETURN 


BEITUBN. STATEMENT: 

The RETURN statement transfers pregram control out of a procedure and 
back into» or immediately followirgs» the invoking statement depending 
on the type of procedure being executed. 


SYNTAX. . 
The syntactical structure of the RETURN statement is as follows: 


Regular Format 


BEIUBNZ 


Function Format 


BEIUBN expression) 3 


DESCRIPTION. 
The RETURN from a regular procedure passes control out of the procedure 
and back to the statement that follows the calling statement. 


The RETURN from a function procedure also returns control and always 
returns a value to be used in place of the function designator within 
the invoking statement. The evaluation of the invoking statement then 
continues. 


An expression gust appear in the functicn procedure RETURN statement. 
The type Clength) of the expression in the function procedure RETURN 
statement must agree with the type Clength) option as contained in the 
procedure head statement if the £FORMAL.CHECK compiler option has been 
specified. 


The function format used for a regular procedure results in a compiler 
error messagee 


The execution of a procedure END statement is the equivalent of a 
regular procedure RETURN statement or a function procedure RETURN 
statement containing a value of O's. 


EXAMPLES. 
Examples describing the RETURN statement are as follows: 


Exagoles Cenmeots 
PROCEDURE ABCs The regular procedure A&C has 
‘ several conditional RETURN state 
‘ mentS.e It also has an unccndis 
é tional RETURN if none of the 
IF X THEN RETURNS others is executed. 


Exaanles 


IF Y THEN RETURNS 


RETURNS; 
END ABCs 


PROCEDURE XYZ FIXED; 
DECLARE (X» Y) BIT (€16)> 
Z FIXED; 


IF X THEN RETURN €Z t8= X)3 


RETURN C€14)35 
END XYZ3 


PROCEDURE EXP CA» B) CHARACTER 
VARYING; 
FORMAL CA» B) FIXEDS 
DECLARE X FIXEDS 
DO CAL FOREVER; 
IF EQL O THEN 
RETURN €"B ITS" CAT 
"ZERO" )3 
ELSE DQ; 
B := B * B3 
DECREMENT As 
IF A EQL ZERO THEN 
RETURN (C"B IS" CAT 
CONV (Bs CHARACTER))3 
ENDs 
END CAL>3 
END EXPs 


RETURN 
cont 


CQwumeaots 


The functional procedure has one 
conditional RETURN that calcu= 
lates a value and passes it as a 
FIXED number. Notice that X and 
Y need not be of type FIXED. A 
second RETURN statement passes 
the value of 14. 


The function procedure EXP calcu 
lates B to the A power. It 
RETURNS a VARYING Length charac 
ter string. 


REVERSE.STORE 


BEYEBSEsSIQRE-SITAIEMENTs 

The REVERSE.STORE statement is used to assign each datasname value in 
a list of datasnames to the preceding datastname in the liste. Also» it 
assigns an expression value to the last datatname. 


SYNTAX. 
The syntactical structure of the REVERSE.STORE statement is as follows: 


BEYEBSEsSIQBE Riaresnaeeete datasname=2 [ C2 data-name=3] scowl 
expression)z 


DESCRIPTION. 

The value of datatname 2 is assigned to datasname 1» then the value 
of datasname 3 is assigned to data™name 2% and so ons until the value 
of the expression is assigned to data™namern. 


NOTE 
Because each address in the data™name= 
List is calculated only once for the 
whole statements no equivalent construct 
in UPL is as efficient. 


EXAMPLES. 
Examoles describing the use of the REVERSE.STORE statement are as 
follows: 


Examoles CQmmeots 


REVERSE.«STORE CAsBeCoX+4)5 | The effect is the same as from the 
following statements: 


A ?= B> 
B t= C3 
C t= X+43 


Notice that REVERSE.STORE CAsBoCsX+4)5 
is pot the same as A t= B t= C 8= X+43 


REVERSE.«STORE CCASE N OF This statement assigns the value EX+2 to 
CAeBeCCI)»D0) EX+2)3 gog of the datasnames. The one chosen 
decends on the value of ne 


SIQE-SIATEMENT.s 


The STOP statement terminates a program in an orderly or normal manner. 


SYNTAX. : 
The syntactical structure of the STOP statement is as follows: 


sIQez 


DESCRIPTION. 
A STOP statement can appear anywhere that an executable statement can 


Any number of STOP statements can be coded within the program» but only 
one is executed. . 


The UPL Compiler supplies a STOP statement as the last statement in the 
program if a STOP statement has not been specified. 


When the STOP statement is executed atl files are CLOSEd. 


UNDO 


VNDQ-STATEMENL: 
The UNDO statement provides the capability to transfer control out of 
DO statement groups. . 


SYNTAX. 
The syntactical structure of the UNDO statement is as follows: 


vaaa| 


DESCRIPTION. 

An UNDO statement is used only in conjunction with a DO statement. It 
passes program control to the statement that immediately follows the 
appropriate END statement for the specific DO statement group. 


DO-group™name 


(*) 


A simple UNDO statement (no options) passes control out of the current 
DO statement. The DO-group=name option passes control out of the named. 
groupe The asterisk passes control out of all nested DO statement 
groups within the proceduree A maximum of 16 DO“groups can be exited 
with one UNDO statement. ; 


A DO statement group is subordinant to a procedures therefore» control 
never passes out cf a procedure with an UNDO statement. A RETURN 
statement» howevers passes control from the procedure and terminates 
any DOsgroup in which it appears. 


EXAMPLES. 
Examples describing the use of the UNDO statement are as follows: 


Exaboles | Ceonments 
DO> 
IF A EQUAL B THEN UNDO3 | A simple condition that ends 
P the DQ statement. 
END> 
DO REPEAT FOREVERS Datatname SUM is tested for 
IF SUM GEQ 0 Limits of + or = 5s» then a mes 
THEN DO; sage is printed. If the value 

SUM := SUM =13 is beyond the Limits» alt DO 
IF SUM GEQ 6 statements are ended. 
THEN UNDOC#)3 
END> 


ELSE IF SUM LSS 03 
THEN SUM t= SUM + 13 


Exapoles 


ELSE DO; 
DECREMENT SUM; 
rf SUM: LSS 35 
THEN UNDOC*)5 

END; 

END REPEATS 

WRITE PeFILE ("SUM IS BETWEEN 

“5 AND +5"); 


Conneots 


UNDO 
cont 


ZIC-SITALEMENTs 
The ZIP statement passes control information to the MCP as if it had 
been entered on the console printer (SPGQ). 


SYNTAX. 
The syntactical structure of the ZIP statement is as follows: 


controlsinformation 


é1€.° 


controls-card information 


DESCRIPTION. 

Any control information that can be entered via the console printer or 
the card reader can be used in a ZIP statement. The information passed 
must be surrounded by quotes. 


EXAMPLES. 
Examples describing the use of the ZIP statement are as follows: 


Exawoles Couoeots 
ZIP "SO OPEN 5; Sets the OPEN option in the MCP. 
ZIP “EX CAL" 3 Begins the execution of program 
CALe 


ZIP "COMPILE PRINT UPL SYNTAX" 35. Program PRINT is to be compiled 
for SYNTAX only. 


ZIP “SV LPA®™ 3 The MCP is requested to save the 
line printer. 


GENEBALs 


SECTION 7 


INPUT/OUTPUT STATEMENTS 


The input/output statements control the peripheral. devices and READ or 
WRITE data external to the processor and its memory. 


Input/output statements are Listed alphabetically. 


statement 


ae 
be 
Ce 
de 


is described 


PurpoSee 
Syntaxe 
Description. 
Examples. 


in the following order: 


The format of each 


ACCEPT 


ACCECIL-SIAIEMENT. 
The ACCEPT statement is used to input information from the console 
printer. 


SYNTAX. 
The syntactical structure of the ACCEPT statement is as follows: 


ACCERI data-name [ » ENQeQEaTExI | é 


DESCRIPTION. 

Data=name is the program area into which the information is moved. The 
information from the console printer is considered of type CHARACTER, 
and the assignment operator is used to move the data into the data= 
namee Therefores truncations padding» and left or right adjustment is 
in accordance with the rules of the assignment statement. 


A maximum of 69 characters is allowed per ACCEPT statement. 


The END.OF.TEXT option specifies that the END*OF*TEXT character 
Chexadecimal 03) is to be includec with the message. 


EXAMPLES. 
Examples describing the use of the ACCEPT statement are as follows: 


Examgoles Comments 
PROCEDURE A.MSG CHARACTER VARYING> Procedure A+«MSG READS messages 
DECLARE MSG CHARACTER (58)5 from the console printer and 
RETURN CACCEPT MSG)3 passes them back to their invok= 
END AeMSG3 ; ing statement. For example» 


MESSAGE s= AeMSGsS 318 a procedure 
call that can be used to input 
console printer message from 
anywhere in a program. 


| sccessorttetnromartOn 
ACCESSsELLEsTNEQRYATION.SIALEMENT: 


The ACCESS»~FILE~INFORMATION function returns two commonly required 
items from FILE PARAMETER BLOCK (CFPS). 


SYNTAX. 
The ACCESS»FILE.~ INFORMATION syntax is as follows: 


gil 
ACCESS aE ILEsINEQRMALION Cinternal-file-name 


CHABACTES 


z2 address-generating-rexpression) 3 


DESCRTPTION. 
The FPB is interrogated and the end-of-file CEOF) pointer and 
the device tyne are returned. 


If the file is unopen and» therefore» the file information block (FIB) 
does not exist yet» the MCP janores this communication. 


The formating of returned data is as follows: 


Liao Bit Chacactec 
Endsof-file pointer 24 8 
Device type 6 2 


The device types are described in the CHANGE statement. The data 
returned is assigned to the Location as specified by the address= 
generating expressione 


CLOSE 


CLOSE STATEMENT: 


The CLOSE statement releases control of a file from the program. 


SYNTAX. ; 
The syntactical structure of the CLOSE statement is as follows: 


BEEL 

| BELEASE 
CLOSE internal-file-name [WIIy CCBUNCH 2] J EUBGE 
BEMQYE 
NOsBEWLND 
Lock 


CIEaNGI.cLaseo)] i 


DESCRIPTION. 
The internalfile=name must be the same as the filename declared in 
the FILE statement. 


The file must be in the OPEN state before it can be CLOSEd unless the 
IF.-NOTe-CLOSE option is used. 


Files need not be explicitly CLOSEd. Memory space is immediately 
returned to the system whenever a file is CLOSEd» however» and the 
space can then be used for other purposes. Files that are closed at 
program termination are equivalent to CLOSE RELEASE. 


The word WITH is optionals and its use has no effect. 


CRUNCH applies to disk files that have only one disk area. The disk 
area allocated to the file is cut back to the actual size of the file. 
The word should be used only with files that can never be larger than 
when they are CLOSEd CRUNCH. , 


REEL specifies that the current reel of tape is to be CLOSEd» but the 
file is still open. 


NO-REWIND inhibits the rewinding of a reel of tape. 

RELEASE returns the memory file space to the system and does not enter 
filenames into the disk directory unless specified by the LOCK option 
in the FILE statement. 


PURGE removes the filename from the disk directory and returns the 
disk space to the disksavailable table. 


REMOVE removes a duplicate filename from the disk directory if it is 
present and rewtenters the name as referencing the new file. 


CLOSE 
cont 


LOCK enters the filesname into the disk directory. 


IFeNOT.CLOSEd avoids an MCP termination of a program that attempts to 
CLOSE a file that is not OPEN. 


The default is the same as RELEASE. 


Files that are open at an abnormal program termination are CLOSEd 
with RELEASE. 


If more than one options excluding CRUNCH or IF.NOT.CLOSEDs is 
requested» only the last is used. 


EXAMPLES. 
Examples describing the use of the CLOSE statement are as follows: 


Exawoles Comments 
CLOSE HOLD WITH CRUNCH» The file HOLD is to be cut back to its 
RELEASE> actual disk usage areas and its name is to 


be put into the disk directory. 


NOTE 
A filesname must be in the disk directory 
before another program can access ite 


CLOSE MASTERS The file MASTER is used as input» and its 
name is already in the disk directory. 
The file is no longer available to this 


program. 
CLOSE OLD-eMASTER WITH The file OLD.MASTER is created by this 
REMOVE; programs and any other Cduplicate) file by 


the same ‘name is removed from the disk 
directory when this filename is entered. 


DISPLAY 


QISELAY-SIAITEUENT: 
The DISPLAY statement causes a message to be printed cn the console 
printer. 


SYNTAX. 
The syntactical structure of the DISPLAY statement is as follows: 


DISELAL exoression C 2 CRUECHEQ 


DESCRIPTION. 
The expression must be a data=names Literal» or character=string or 
must result in a printable message. 


The CRUNCHED option removes all trailina blanks and substitutes one 
blank for each occurrence of multiple imbedded blanks. 


EXAMPLES. 
An example describing the use of the DISPLAY statement is as follows: 


Exatole Comneots 
PROCEDURE SENOD.MSG (MSG)>5 Frocedure SEND.MSG prints a message on 
FORMAL MSG CHARACTER the console printer and returns control 
VARYING; to its calling procedure. For example,» 
DISPLAY “PLEASE” SEND.MSG C*™LOAD FORMS") 185 a display 
CAT MSG» CRUNCH; message using the SEND.MSG procedure. 
RETURN: The console printer outputs the message: 


END SEND.MSG> 


PLEASE LOAD FORMS 


[ ree | 
ELLE-SLALTEMENT. 


The FILE statement assigns an internal filename to a physical inout/ 
output device and a list of attributes. 


SYNTAX. 
The syntactical structure of the FILE statement is as follows: 


FILE internal-filesname ¢ attributew"1 (Cz, attribute"2] ... )> 


“familysfile-namet% 
LABELT= "familysfilesnametZ"file=namer 
BUBBOUGHS 
LABELSet TPE T= ANal 
YNLAGELEDR 


TAGE | 
DEYICE_= hardwarentype LCaccess=mode] CEQRMSI{COB] BACEVUE 
ine 


= 


EBCQIC 


QQ2 
BOCES. ois ASCII 
cYey 


GCL 


BUEEEBS.= integer 
LOCK 

QeIIONAL © 
YAELABLE 

SAVYE.= integer 


characters™pervrecord 


BECQBQ2.= 


charactersspercsrecord/Zrecords=per"block 


BEELW= nNumbervwof=tapereels 


ABEAS = numbercrofedisktareas{number"cf™records=per=area 


BaChslQ.=e © literal 2 


FILE 
cont 


QEEN attributen-1i C[ Z attribute"2] ee. 


ALLszABEAS2z ATs QPEN 
ABEAsBYaCYLINQEB 
SINGLESEACK 

EVsSPECTAL.= integer 
EVsINCBEMENTED.= integer 
VSEslTNEUI.sBLOCKING 
SBaSIAILON.= integer 
ENQsOEsCAGEs ACTION 


DESCRIPTION. 
The FILE statement options are described and illustrated in the 
paragraphs that follow. 


FILE STATEMENT. The FILE statement is a declaration statement and must 
appear within the DECLARE portion of a program or a procedure. The 
file-name is the datasname by which the source program references the 
file. The option list must be surrounded by parenthesess all attrib= 
utes are optional. A default status is set for omitted options» but 
varies by device. 


LABEL OPTION. The LABEL option specifies the external file=name. It 
is the name the MCP uses to access information on an input/output 
device. The LABEL has two names» a familysfile-name and a file*names 
each enclosed in quotes and separated by a virgulee The family*file= 
Name allows access to a multifile group» and the file=name allows 
access to a single file in the group C*PAYROLL*/*W2.SUMMARY"). Each 
name must be surrounded by quotation markse The MCP uses only the 
first 10 characters of each riame. 


The filename can be omitted. In such a cases the file is assumed to 
have no filename. It is accessed by its familysfile=name only. 


The default for the LABEL option is setting a familysfile-name the same 
as the internal-file=name and the file=name set equal to blanks. 


Examoless 
Examples describing the use of the LABEL option are as follows: 


LABEL.~TYPE OPTION. 


label. The default option 


peripheral on which 
are as follows: 


Exauales 


FILE TAeRECS CLABEL= 
"MASTER"™) 


FILE ERR C(LABEL="MSG"/ 
"ERROR" )3 


PLE 
cont 


Coumeots 


The internal datasname TA-RECS is declareds 
and the external file label MASTER is 
assigned. 


The datasname ERR is declared. An I/0 file 
named ERROR of the multifile group MSG is 
being referenced. 


The LABEL.~TYPE option specifies the type of tape 
is BURROUGHS. | 


DEVICE OPTION. The DEVICE option specifies the type of input/output 


Revice 
PUNCH 


MULTI-FUNCTION. CARD 


PAPER. TAPE. PUNCH 
PAPER.TAPE. READER 
PRINTER 

SORTER» READER 
DISKeFILE 
DISK.FILE.1 
DISK.FILE.2 
DISKsPACK 
DISK.CARTRIDGE 
DISKePACK.«ORs CARTRIDGE 
DISK 

CARD 


SPO 


the file resides. 


The input/output DEVICE types 


Coumeot 
8O=column card 


Any input/output functions 
on the 96"*column card unit 


132“column 


Any headwperwtrack disk 

1A and 1C head=per=track disk 
2B headsperstrack disk 

Disk pack only 

Disk cartridge only 

Any removable disk 

Any disk 

80*column card 


Console printer 


FILE 
cont 


Revice Comment 


TAPE9NRZ 
TAPE«7e¢UPRIGHT 
TAPE «9ePE 
TAPE.7sCLUSTER 


TAPE.9-CLUSTER 


TAPE Any tape 
TAPE.7 Any 7*track tape 
TAPE.9 Any 9=track tape 


The default option is TAPE. 


ACCESS MODE OPTIGNe. The ACCESS MCGCE specifies the ordering of disk 
record accesses. The options are SERIAL or RANDOM. The default is. 
SERIAL. 


FCRMS OPTIGNe. The FORMS option allows the operator to adjust the 
alignment of an output devicee The FORMS option is applicable to 
PRINTER» PUNCH» or PAPER.-TAPEsPUNCEF only. 


The default is FORMS omitted. 


BACKUP OPTION. The BACKUP option specifies that an alternate output 
device can receive the information in the format of the primary device. 
The QR portion of the option specifies that the alternate device is to 
be used only if the primary device is unavailable. 


The BACKUP option without the OR cortion specifies the information must 
go to the alternate device. 


The BACKUP option primary devices are PRINTER» PUNCH» PAPER.TAPE.PUNCH» 
and TAPE. The BACKUP alternate devices are TAPE and DISK. 


The default is hardware only as specified in the DEVICE option. 


Examolese 
Examples describing the use of the DEVICE option and its parallel 
options are as follows: 


FILE 


cont 
Exanales CQnments 

FILE OUT.MASTER The FILE OGUT.MASTER is orinted if the 
CDEVICE=PRINTER OR BACKUP printer is available. If the printer is 
DISK)s3 unavailable» it goes to the DISK. 
FILE W2.SUMMARY CLABEL= Two files are declareds one with a label 
"PAYROLL"/"W2"s DEVICE= from the disk pack and a printer file 
DISK.ePACK)» FILE W2. with special forms. The printer file 


REPORT CDEVICE=PRINTER goes to disk if the printer is busy. 
FORMS OR BACKUP DISK); 


MODE OPTION. The MODE option specifies the parity and the code type of 
an input/output file. The options are ODD or EVEN parity and EBCDIC>» 
ASCII» or BCL code. The default is ODD EBCDIC. 


BUFFER OPTION. The BUFFER option specifies the number of input/output 
buffers to be allocated for the file. The default option 1s one 
buffer. 


LOCK OPTION. The LOCK option requests the MCP to enter the filename 
into the disk airectory unless the file is clesed with ourge. 
Programs that are terminated abnormally by the MCP and have ogen disk 
files are entered into the directory. The default is NO LOCK. 


OPTIONAL OPTION. The OPTIGNAL option allows a program to execute with" 
out a file if the operator has responded to the NO FILE messace with an 
OF console input message. 


All reads or writes of an optional file that have an OF message execute 
the statement following the ON EOF Cend of file). 


VARIABLE OPTICN. The VARIABLE option allows different length input/ 
output records per READ/WRITE. The default option is fixed=size 
recordsSe 


SAVE OPTION. The SAVE option specifies the number of days a file 1s to 
be saveds that iS» not to be destroyed. The default option is 30 days. 


RECORDS OPTION. The RECORDS opticn specifies the number of characters 
in an unblocked record (physical size)» or the number of characters per 
record Clogical record size)» and the number of records in the block 
Cphysical records per block). 


Cxagolese 
Examples describing the use of the RECORDS option are as follows: 


FILE 


cont 

Exawales Ceonsots 
FILE CARDSIN The FILE CARDSIN contains 80"character 
CRECCRDS = &80)3 unblocked records. 
FILE TAPEOUT The FILE TAPECQUT contains 10 records per 
CRECORDS = 120/10)>5 block and 120 characters per record. 


DEFAULT OPTIONS. The default options depend on the input/output DEVICE 
and have the following unblocked values: 


Qevice Yoklocked.Value 
CARD or PUNCH 80 characters 
PRINTER 132 characters 
DISK 180 characters 
CONSOLE PRINTER C€SPO) 72 characters 
ALL others 80 characters 


A character is the same as a byte. 


REEL OPTION. The REEL number specifies the number of reels of tape on 
a file. The default option is 1. 


AREAS OPTION. The AREAS option specifies the number of disk areas and 
the number of blocks (Cphysical records) per area. The two values are 
separated by a virgule. Fach physical record on the disk contains the 
number of characters as specified in the number of characters per 
block of the RECORDS option. The default option is 40 areas with 100 
physical records per area. 


PACK.-ID OPTION. The PACK.ID specifies the name of the removable disk 
associated with this file. Only the first 10 lLeft=most characters of 
the literal are used. 


The default is 10 spaces» which implies the system disk. 


OPEN OPTIQN. The OPEN option specifies the OPEN attributes to be 
associated with the file. AS a result» an automatic CPEN is 

performed with the first input/output statement. If an OPEN statement 
is executed for the files the attributes in the statement take prece= 
dence. The attributes are the same as in the OPEN statements» but here 
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FILE 
cont 


must be separated by virgules. 


Certain devices are defaulted OPEN as follows: 


Qevice Attcibute 
PRINTER OUTPUT/NEW 
CARD READER INPUT 
CARD PUNCH OUTPUT/NEW 
DISK INPUT 


ALL-AREASe«ATe-OPEN OPTICNe. The ALL-~AREAS.AT.OPEN option specifies that 
all requested disk space for a file opened NEW be allocated when the 
file is OPENed. The normal MCP procedure is to allocate each addi= 
tional area as the file requires the space. 


AREAeBY.-CYLINDER OPTION. The AREA.~BY-CYLINDER option specifies that 
each disk area begins on a cylinder boundary. 


Default is disk Space as required. 


SINGLE-PACK OPTION. The SINGLE-PACK option specifies that the file 
resides completely on only one removable disk device. 


Default is disk space as required. 


EU.e.SPECIAL OPTION. The EU.-SPECIAL option specifies which head@=per>- 
track electronic unit CEU) or systems DISK pack drive the file must be 
associated with. The possible range is 0 to 15. 


Default is determined by the location of the first systems unit. 


EU.INCREMENTED OPTIONe The EU.INCREMENTED option is used with the 
EUe.SPECIAL and specifies the EU or drive number that is incremented for 
each additional disk area allocated. The increment range is 0 to 15. 


All areas of a file must be contained on systems diskse The increment 
number will wrap around when there are no more system units. 


Default is 0 (zero). 


USE~INPUT.~BLOCKING OPTION. This aption applies only to disk files. It 
specifies the record and block sizes are to be taken from the disk file 
headere That is» the record and block size attributes of the actual 
disk file are used. 


The default is either the user specified attributes in the file state= 
ment or the default option of 180 character records unblocked. 


Pee 
cont 


SR»~STATION OPTICN. The number indicates which read station(€s) is Care) 
to be used on a sorter"reader file. The pnossible stations are the 
magnetic ink character reader and the optical character reader» The 
read stations are interchangeable» and the systems documentation should 
be consulted for specific hardware configurations. Possible values 
are: 


1 = first station 
2 = second station 
3 = both stations 


The default is SR-eSTATION = QO. 


END.OFe-PAGE~ACTION OPTICGN. The END-OFePAGE.ACTION causes the ON EOF 
statement to be executed at the end of a page on the printer. 


The end of a page is detected as a channel 12 punch on the printer 
Carriage control loop. The default option is the skip to channet 1 on 
the printer carriage control loop if channels 12 and 1 are punched; 

no action occurs if channel 12 iS unpunched. 


Loren 
QPEN-STAIEMENT: 


The OPEN statement establishes programmatic control of a datactfile by 
requesting the MCP to make the datafile available to a program. 


SYNTAX. 
The syntactical structure of the GPEN statement is as follows: 


QEEN internal"file-name [WLIy] attribute-1 [te attribute"2]...]3 


The possible attributes are as follows: 


ae INPUT 
De OUTPUT 
Ce NEW 
de LOCK 


@. LOCK.OUT 
ff. NO’REWIND 
ge REVERSE 


DESCRIPTION. 

The internal=file=name must be declared in a FILE statement. Use of 
the word WITH is for readability only. Multiple attributes must he 
separated by commas and have the following meanings or effects: 


Attcigutes Yeaningadtifect 
INPUT A file exists and is to be read. 
OUTPUT A file exists and is to be written. 
NEW A file is to be created. 
LOCK This file cannot be written by any other program. 
LOCK.OUT This file cannot be accessed by any other proaram. 
NOTE 


LOCK and LOCK.OUT are true only for 
the duration of the lockina program. 


REVERSE A tape is to be accessed in a backward direction. 


Any files snecified both INPUT and OUTPUT must be disk files. 


No distincticn is made between INPUT»OUTPUT or QUTPUTsINPUT declara= 
tions. Both imply a file exists and can be written to or read from. 


OPEN 
cont 


OUTPUT» NEW creates a new file or a new version of an existing file. 
The CLOSE REMOVE ootion removes the old duplicate of an existing file. 


If no attributes are specified» except for the card reader and the card 
punch that are defaulted QUTPUT» the default option is INPUT. 


The FILE statement for a file being OPENed must be within scope. 


Attributes that have been altered via the CHANGE statement are affected 
only during OPEN. 


Attribute wordss when used in an fPEN statement» cannot be DEFINEd. 


The OPEN statement should be the first input/output statement executed 
for a file. That is» an OPEN statement should precede all READ» WRITE>» 
and CLOSE statements that can be issued against a given filesname. The 
OPEN statement can be omitted only if the OPEN attributes are explic= 
itly given in the FILE statement. A CLGSE statement for a given file 
must be executed before that file can be res=QPENed. 


Because buffersstorage and file attributes are allocated when a file is 
OPENed» memory storagenarea utilization can be significantly cptimized 
by delaying the issuance of an OPEN statement until a file is actually 
needede Also» when a file is no longer required by a program» the 
immediate execution of a file CLOSE statement ootimizes memory storage 
area utilization. 


EXAMPLES. 
Examples describing the use of the OPEN statement are as follows: 


Examoles Comments 
OPEN MASTER WITH INPUTS The MASTER file is to be made available as 
inpute 
OPEN WORK WITH OUTPUT» The WORK file is a new file on disk to be 
INPUT» NEWS used as Output and as input. 


& 
BEARD STATEMENT. 


The READ statement obtains an input record from a peripheral device as 
specified in the appropriate FILE statement. 


SYNTAX. | 
The syntactical structure of the READ statement is as follows: 


{ 


BEAD CLOCKI internal=file-name 


[Lrecord address expression]] (data-name)z 


CON EQE executable statement;] 


CQN BABIIY executable statement; ] 


DESCRIPTION. . 
The specified internal-filesname gyst be declared in a FILE statement 
and gust be OPENed before a READ statement can be executed. 


The LOCK option applies only to disk files and reserves a disk record 
for exclusive use by a program unit until a non=LOQCK READ or WRITE 
statement is executed for the file. 


The record=address=expression is applicable to random disk files only. 
Brackets (€1]) are requirede. Random disk records are addressed by 
record=number disolacement from the beginning of a file. The first 
record has a recordwaddress of a 0 (zero)» the second a i Cone)» etCe» 
to nei for the nth record. The record=addresssexpression returns a 
binary value that is used to randomly access the record in the file. 


The datasname is the receiving field for the information being READ. 
The internal*files=name is considered of type CHARACTER. 


The replacement operator is used to move the information from the 
buffer to the datasname areae Truncations oaddings and Left or right 
adjustment of the data is performed during the transfer. 


The EOF and PARITY parts are considered subordinate to the READ state- 
ment and ares therefore» candidates for the special class of SEGMENT 
statements. 


The reserved word ON is required before the EOF and PARITY options. 
The EOF part specifies a single statement to be executed upon encoun= 
tering the End Qf-Eile. If an EOF is detected and no EQF option is 
specified» the program is terminated. 

The PARITY part specifies a single statement that is executed if a 


parity error occurs on the input/output device during the READ. If no 
PARITY part is specified» the normal MCP equivalent routines are exe 
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READ 
cont 


e 
cutede The MCP can discontinue (NS) the program after trying n times 
to correct the situation. 


The ECF and PARITY words are class III reserved words and can» there= 
fore» be used as identifiers. If they are used as class [III reserved 
words within the READ statementyr null statements must be used to obtain 
the proper syntax. Reserved words» when used in the READ statement» 
may not be defined. 


EXAMPLES. 
Examples describing the use of the READ statement are as follows: 


Examales CQameonts 
READ CARD.FILECWGORK); The CARD.FILE file is being READ into data 
ON EQF STOP; name WORK. When the End“QfeEile is 
encountered the program terminates normally. 
READ DISK.FILE The DISK.FILE file is being accessed in a 
CRANDOM.KEY] CRECORD)s ‘random manner under control of data*name 
ON EOF PRO.ENDS RANDOM.KEY. The data READ is moved into 


datasname RECCRD. At EOF or an invalid 
key» perocedure PRO.“END is invoked. 


RECEIVE 


BECEIVE STATEMENT. | ; 
The RECEIVE statement is used to input a message to a data 
communications handler or another active program. 


SYNTAX. 
The RECEIVE statement syntax is as follows: 


BECEIYE address generates expression ERQM program=name $ 


LON-GsEMBIY executable statement; | 


LON INVALIQeBEQUESI executable statement | 


DESCRIPTION. 
The address=generating expression must contain the message. 


The program name is the name of the SENDing program. 


The ON QeEMPTY statement is executed if there are no messages from the 
specified program. 


The ON INVALID-REQUEST statement is executed if the MCP cannot 
recognize the request. 


The MCP maintains queues in memorys if space exists» or on the disk. 


SEARCHeDIRECTORY 


SEABCHsAQDIBECIOBY SIAIEMENT: 
The SEARCH.DIRECTORY statement returns informations in the format 
specified» from the file header record on disk. 


SYNTAX. 
The SEARCH-DIRECTORY statement syntax is as follows: 


PACKsID CAI multifile-ID CAI filerID 
SEARCHsDIBECIOBY ¢ 


expression 


foo 


‘BII 
2 address generating expression ¢ 2 
CHABACIEB 


[ QN-EILEsMISSING executable statement | 


[ON-EILEsLOCKER executable statement; | 


DESCRIPTION. 

The disk directory is searched for the named file and» if founds infor= 
mation is extracted from the file header record in the format 

specified and assigned to the address=generation expression location. 


PACK.~ID» multifile ID» and file"I0 must each be 10 characters long. If 
only multifileID is used» the PACK.ID and file=ID must be spaces. 


Expression must result in a 30°character strings if used. 


If the file is not present on disk» the statement following ON FILE. 
MISSING is executed. 


If the file is open but with LOCK specifieds the ON FILE-LOCKED 
executable statement is executed. 


All values returned are in number of bits. 


The format specifications of returned data are as follows: 


itsorNaose Bit Coacactec 
OPEN.TYPE 4 1 
NO.USERS 8 2 
RECORD.SIZE 24 4 


ItesurzNaae Bit Coacactec 
RECORDS»PER-BLOCK 24 SW: 
EOF -POINTER 24 i 
SEGMENTS.PER-AREA 24 8 
ACCESS.DATE 16 6 


SEARCH. DIRECTORY 


cont 


The SEARCH.eDIRECTORY statement is recommended in lieu of the ACCESS. 


FILE-HEADER statement because the data returned 


MCP file header record tayout. 


Exapeles 
SEARCH.-DIRECTORY ("BBB TEST FILEX ‘ys 
DATAXX» BIT)3 
SEARCHeDIRECTORY (C" UPL rt 


» SAVEINFOs CHARACTER)? 


is not dependent on the 


Couneots 


A file named TEST/FILEX 
on a named user pack of 
BBB is being referenced. 


The file UPL on the 
systems pack is being 
referenced. 


Ee 


SEEK STATEMENT: 


The SEEK statement reads ar 


SYNTAX. 


andom disk record into a buffer. 


The syntactical structure of the SEEK statement is as follows: 


DESCRIPTION. 
The SEEK statement replaces 
files. It reads the record. 


SEEK CLOCK) internal*file=name 


[ [record=address=expression] |] 3 


the automatic record@™read of sequential 
into the buffer from where the record is 


moved to the program space by the READ command. 


The LOCK option reserves ar 
a non=LOCK READ or WRITE is 


The internal=file-name must 


ecord for exclusive use by a program until 
executed for the file. 


be declared in a FILE statement. 


The recordsaddressmexpression returns a binary value that is used as 


the ordinal position of the 


record in the fite. The first record is 


numbered 0 C€zero)» the seconds 1 Cone)» etcCer through the nth record» 
which is numbered n1. Brackets (€{]) around the recordsaddress= 


expression are required. 


The SEEK statement obtains t 
being processed. Therefores 


EXAMPLES. 
Examples describing the use 


Exapoles 


SEEK DeFILE CNTH»RECI; 


SEEK DeFILE (515 


he next record while the current one.is 
it often closely follows a READ statement. 


of the SEEK statement are as follows: 


Cowpens 
The record specified by the NTH.REC key of 


the DeFILE file is found and loaded into a 
buffer. 


The sixth record of the DeFILE file is to 


‘be found and loaded into a main memory 


buffer. 


SEND 


SENQ-SIAIEMENTs 
The SEND statement is used to output a message to a data communications 
handler or another active program. 


SYNTAX. 
The SEND statement syntax is as follows: 


SENQ address generates expression [Q proagram=name 3 


[ON-GsEULL executable statement; | 


TONLINYALIDs:BEQUESI executable statement; | 


DESCRIPTION. 
The address=generating expression must contain the message. 


The contents of the message are stored in a queue for the named 
program. Maximum message size is 6529535 bits» and maximum number of 
messages is 1023. 


Control returns to the SENDinga programs» and the MCP will queue messages 
until the named program issues a receiveée 


The MCP maintains queues in memory» if Space existS» or upon the disk. 


The ON Q.~FULL statement is executed if the queue has its maximum number 
of messageSe 


The ON INVALID.REQUEST statement is expected if the MCP for any reason 
cannot recoqnize the request. 


SKIP 


akLIE-SITALEMENT. 


The SKIP statement is used to control the carriage on the printer. 


SYNTAX. 
The syntactical structure of the SKIP statement is as follows: 


skIe internal=file-name JQ channel number 3; 


DESCRIPTION. ; 
The SKIP statement causes the Line printer to skip to the specified 
channel number on its carriage tapee The channel numbers are from 1 
to 12. 


EXAMPLES. 
Examples describing the use of the SKIP statement are as follows: 


Exaoeles Conweots 


SKIP P.eFILE TO 13 The P»FILE file must be an output file on the 
printer. The printer SKIPS to channel 1 
Cusually the top of a new page). 


SKIP PRNT TO 123 The printer SKIPs to channel 12 Cusually at or 
near the erd of a page). 


SPACE 


SPACE-SIAIEMENTs 


The SPACE statement allows the user to skip over records in a 
sequential file. 


SYNTAX. 
The syntactical structure of the SPACE statement is as follows: 


SPACE internalefilesname (TO) expression ¢ 


CON BQE executable statement; ] 


CON BPABLIY executable statementz] 


DESCRIPTION. 
The internal=filesname must be declared in a FILE statements» and the 
file must be OPENed. 


The expression returns a binary value that indicates the number of 
records to be skipped. If the value is negatives reverse or backward 
spacing is indicated. 


The TO option specifies that spacing is in a forward or positive 
direction. 


The ON EOF option snecifies a statement that is to be executed if the 
EOF record is encountered while spacing. 


If a parity error is detected» the ON PARITY option specifies a 
statement that is to be executed. 


If the ON PARITY option is unspecified» the MCP enters its normal 
routines for parity errorse If the parity error is not corrected on 
successive retriess the program is discontinued (DS). 


ON EOF and ON PARITY are class III reserved words that can be used as 
datasnames.e. If they are used as datasnames in the SPACE statement» 
null statements are required for proper syntaxe When used as reserved 
words in the space statement they cannot be DEFINEd. 


The ON EOF and the ON PARITY options are statements subordinate to the 
SPACE statement and can be segmented separately Crefer to the SEGMENT 
statement» page 5“23). 


EXAMPLES. 
An example describing the use of the SPACE statement is as follows: 


SPACE 
cont 


Examelse 


SPACE TAPE.FILE TO Xs 
ON EOF STOP; 


Coupeaots 


The TAPE.FILE file is spaced the number 
of tape records specified by the binary 
value of data*name Xe. If the End-Qf-Eile 
is encountered» the program is STOPped. 


verre | 
HRILE.OTALTEMENT. 


The WRITE statement transfers data from a specified output memory area 
to an assigned peripheral. 


SYNTAX. 
The syntactical structure of the WRITE statement is as follows: 


WRIIE CLOCK] j$internal-file-name 


character-string | 


jones 


[Lrecord=address=expression]] ¢ 


data=name 


CON EQE executable statement; ] 


CON EXCERTION executable statement; ]) 


DESCRIPTION. 

A file must be OPENed before a WRITE can be executed. The LOCK option 
reserves a disk record for exclusive use of a program until a non=LOCK 
READ or WRITE is executed for the file. 


The internal*filesname must be declared in aFILE statement. 


The first option is used for printer control. The NO» SINGLE» and 
DOUBLE options specify lines of paper movement. The PAGE option spaces 
paper to the top (channel 1) of the next page. The NEXT option spaces 
paper to the next channel punch. The numbers 1» 2» «ee 12 Space paper 
to the specified channel punch. 


The record=address™expression returns a binary value that is used as 
the number of the record being written to on a random disk file. The 
records are numbered in sequence from 0 to n@1 for anon record 

file on disk. Brackets (€€)) around the recordsaddress“part are 
required. 


The data™name or character=string option is the program area from 
which the record is written. 


WRITE 
cont 


The ON EOF executable statement is executed at the end of available 
space on disk. 


Execution of the ON EXCEPTION executable statement is dependent upon 
the peripheral device (refer to the MCP manual). 


The EOF and the EXCEPTION options are subordinate to the WRITE 
statement and can be segmented (refer to the SEGMENT statement). 


EOF and EXCEPTION are class III reserved words that can be used as 
data™namese If they are used as datasnames within a WRITE statement» 
null statements may be required for proper syntaxe When they are used 
as reserved words in the WRITE statement» they may not be DEFINEd. 


If the END.OF.PAGE.-ACTION file attribute has heen specified in the FILE 
statement and an end of page (channel 12 punch on the printer carriage 
control tape) is detected» then the ON EOF statement is executed.e This 
facilitates» for example» printing totals or headings without the 
necessity of a Line counter. 


EXAMPLES. 
Examples describing the use of the WRITE statement are as follows: 


Exapeles CQouoeots 


WRITE P.FILE CREC)3 The REC record is written to the P.FILE 
file. The length of the output is coded in 
the FILE statement. ; 


WRITE DeFILE CNTH.-REC] A disk file named D.FILE is written in a 
CWORK ); random mode with NTH.REC as the KEY. The 
ON EOF PRO.ENDs data™name WORK is outputted. At the End- 


Qf-Eile procedure PRO.END is called. 


SECTION 8 


FUNCTIONS 


GENERALS: 


UPL=supplied functions are a set of procedures that are incorporated 
directly into the language to facilitate ease of use and speed of 
execution. 


The usage of supplied functions is similar to invocation of a function 
procedure written by a programmer. Such functions always return or 
reference a values therefore» functions supplied by UPL are 
expressionsSe 


UPL functions can be divided into three groups. 


The first group is exactly like a user function procedures. The appear 
ance of its name in an expression is replaced» at runtimes by a value. 
The following are examples of the first group: 


ae CONVERT. 
be BINARY. 
Ce LENGTH. 
de CAT. 


The second group is more akin to an input/output statement because it 
requests information from the operating system (MCP). The following 
are examples of the second group: 


ae TIME. 
be DATE. 
Ce NAME -OF.DAY. 


The third group is similar to a function procedure except that it 
returns an address rather than a valuee It may» therefore» appear to 
the Left of an assignment or replacement operation. The third group is 
in actuality an addresssgenerating expression» but it is included here 
for conveniencee The following are examples of the third group: 


ae SUBBIT. 
be SUBSTR. 


BASEsREGISTER 


BASEsBEGISTEBL-EUNCIIONs 
The BASE.-REGISTER function returns the absolute main memory address of 
the beginning of the data space of the program. 


SYNTAX. , 
The BASE»~REGISTER function syntax is as follows: 


BASEsBEGISIER 


DESCRIPTION. 

The BASE.-REGISTER function returns a 24-bit value that is the current 
absolute main memory address of the beginning of the data space of the 
program. 


In a multiprogramming environment two separate executions of BASE.= 
REGISTER may not yield the same results because the MCP may have moved 
the data of the program to a new location in memory. 


BINABY-EYNCTIION.e 


The BINARY function converts a character=string to a sian and a 23=bit 
value of tyne FIXED. 


SYNTAX. . 
The syntactical structure of the BINARY function is as follows: 


BINARY (expression) 


DESCRIPTION. 

The expression must result in a characters=string of eight or fewer 
decimal digits. Truncation occurs on the left for any strings greater 
than eight characters. 


The character-string is asSumed to contain decimal characters. Only 
the lLowsorder Cright=most) four bits of each character are used during 
the BINARY functions that is» the zone bits are ignored. 


The characterwstring is converted to a FIXED number. Decimal values in 
excess Of 83885608» but less than 167779215 Cor any multiple of this 
range)» cause the FIXED value to appear negative. Binary lengths in 
excess of 24 bits are truncated on the lefts. The DECIMAL function is 
the opposite of the BINARY function. 


EXAMPLES. 
Examples describing the use of the BINARY function are as follows: 


Examoles Conpeots 


A t= BINARY (CXYZ)35 Datasname XYZ is assumed to contain a char 
acter string of eight or fewer numeric chare 
acterse The character=string is converted to 
a binary value and is assigned to A. 


B := BINARY (€"255")5 B now contains 11111111. 


j ease 


CASEEUNCTIONe 


The CASE function is used to conditionally evaluate one expression from 
amona a list of expressions.e: 


SYNTAX. 
The syntactical structure of the CASE function is as follows: 


CASE expression"1 QE (Cexoression=2 [ Cg expressions3] ae 2 


DESCRIPTION. 

The value of expressionw1 is used as the ordinal position of the 
expression in the list to be executed. The first expression in the 
List is 0 (zero). The value of the executed expression is the value of 
the CASE function. A range check is performed» and an outsof*bounds 
value for expressionei causes termination of the program. Notice that 
the CASE expression differs from a CASE statement because the CASE 
expression returns a value. 


EXAMPLES. | 


Examples describing the use of the CASE function are as follows: 


Exaueles ; Comgueots 


X 2:=CASE A QF CBs Cs» Ds» EDs The value assigned to X is dependent 
upon the value of Ae For example» 


if A = 0 then X := Bs or 
if A = 1 then X t= Cy» or 
if A = 2 then X := D» or 
if A = 3 then X t= E. 
Z == A + CASE N OF CX Yo | Evaluation is Z ?= 5 + (3 + (*4) * 2). 
X + Yr X = Y) *23 | 
FCR A = 5x N = 29 X = 3,» 


and Y = 74 
Z is replaced by the value 3. 


CAT.LEUNCTIONs 
The CAT function programmatically concatenates two strings of data and 
forms a new string. 


SYNTAX. 
The a Aeertical structure of the CAT function is as follows: 


literal=-1 literal=-2 


Cal 


datasnamenl datasname2 


DESCRIPTION. 

Data items can be linked together (concatenated) by using the CAT func 
tion. Although this function is intended to concatenate bit=strings or 
character=strings» it can be used with any combination of datatypes. 
The Limit of datatitems that can be concatenated is 8000 characters or 
8000 bits. 


The CAT function can specify» within the above Limit» several operands 
connected by the required number of CAT functions. 


If the operands are defined as being character» the result of a CAT 
function operation is a string of characters. For any other 
combination of operand datastypes» the result is a string of hits. 


EXAMPLES. 
Assume the following declaration and initializations: 


Declare A character (1)» B bit €3)» C fixed» X bit (6)>» 
Y character (€2)» Z bit C11)» XX bit (27). 


Exanoles Conneots 


A = “B* Datasname A comprises a character=string 
containing the letter RB. 


B = @(€1)1016 Datasname B comprises a bit=string that 
contains the binary value of 5. The length of 
the data=string is three bits. 

C = +10 Datasname C comprises a FIXED*string that cons 


tains the positive (+) decimal value of 10. 
The contents of datasnames A» Bs and C are knowns therefores 
X t= B CAT B3 A binary value of 453 that is» @(€1)101101@ is 
created. The length of the datasstrine is six 
bitse The result of the concatenation is 
assigned to datasname X. 


Y := A CAT As, A character=string»s comprised of two bytes» that 
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CAT 
cont 


Examgoles Comnnesots 


has the value of “BB" is created. The value is 
assigned to data=name Y. 


Z := A CAT B3 A binary value of 15573 that is» 
@(¢1)11000010101@ is created. The Length of the 
data=string is 11 bitse The result of the 
concatenation is assigned to data=name Z. 


XX 3= B CAT C3 A binary string equivalent to the UPL octal 
notation @€3)500000012@ is created. The result 
of the concatenation is assigned to data=name 
XXe 


X = A CAT B s= 4s The CAT function is lower in precedence than the 
<= function. Data=name B is therefore set to 
a value of 4 before B is concatanated with data= 
name Ae The result of the CAT is then assigned 
to data™name X. 


The second example describing the usage of the 
CONVERT function is also an example of the 
CAT function Crefer to page 8710). 


CONVEBLT.EUNCTIONe 


The CONVERT function facilitates the conversion of one data type to 
another. 


SYNTAX. 
The syntactical structure of the CONVERT function is as follows: 
Literal 
Cony 
CONYEBLI 


¢ § datasname 2 datastype (zg logical~group] ) 


expression 


DESCRIPTION. 
The entry of a data=names Literals» or expression denotes the datamitem 
that is converted to the specified data type or logical group. 


The data-type clause is required. It defines the gyutogyt conversion 
datastype. The datatype is defined as follows: 


ae FIXED. 
be CHARACTER. 
ce BIT. 


The lLogical=group clause is required only when converting from type 
BIT to type CHARACTER or from type CHARACTER to type BIT. It 
specifies the number of bits Cof the bit string) that correspond to a 
character in the character stringe The bit=groups specified are as 
follows: 


Logical=Group 7 Comments 
a Bitsgrouping is in binary representation. 
ex Bitgrouping is in quartal representation. 
3 Bit-grouping is in octal representatior. 
4 Bit-grouping is in hexadecimal representation. 


If no bitsgrouping is indicated» 4 Chexadecimal) is assumed. All 
truncation or padding between strings of unequal lengths is performed 
according to the rules as outlined in the assignment statement. 


The conversion of data from type BIT to type CHARACTER expands the 
specified logical bit*grouping into a character (byte) format by pre- 
fixing O*s (zeros) to the most significant positions» and it should ggt 
be construed as being an EBCDIC conversion of the data. Therefores the 
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CONVERT 
cont 


conversion gges_pot return printatle decimal numbers. The result 
merely represents eight bits of data for further manipulation as may 
be programmatically desired. 


To convert from type BIT to printable characterss first convert type 
BIT to type FIXED and then type FIXED to type CHARACTER. 


The conversion of data from type FIXED to type CHARACTER results in a 
sign and seven printable CEBCDIC) decimal numbers; leading printable 
O*s (Czeros) are not suporessed. 


The conversion from type CHARACTER to type FIXED is performed in the 
following manner: 


ae The type CHARACTER datasmame is scanned from left to right 
until a sign or non=space character is en cedNEereds 


be If a sign is encountered» it is noted and removed. 


ce After encountering a sign or non=Space characters» only the 
right-most seven characters of the datasname are converted. 


de The lowtorder four bits cf each character are considered a 
binary value times a power of 10 for each position from 
the righte The highworder four bits are ignored. Decimal 
values in excess of. 8»388»607 positive or 8»%388+s608 
negative have the 2 raised to the 24th power bit ignored. 


If the sign as previously noted is negatives the FIXED number is 
expressed in the complement form of 2. 


The various forms of data conversion are briefly described in the 
following chart. 
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OUTPUT 


mmaAaopwvpro 


omx-—mn 


BIT 


NO CHANGE. 


Figure 81. 


CONVERTS BYTE DATA TO 
A BIT STRING UNDER 
CONTROL OF THE 
LOGICAL BIT GROUPING 
USING VALID CHARACTER 
ONLY. SEE FIRST SET OF 
EXAMPLES THAT FOLLOW. 


CHANGES TO TYPE BIT. 
DATA REMAINS AS IS, 


CHARACTER 


CONVERTS TO CHARACTER 
STRING UNDER CONTROL 
OF THE LOGICAL BIT 
GROUPING. THE RESULT 
{IS RIGHT JUSTIFIED, 
LEADING ZERO FILLED. 


NECESSARY. 


FOLLOW. 


CONVERTS TO SEVEN 
DECIMAL CHARACTERS 

WITH SIGN AND LEADING 
ZEROS. 


NO CHANGE, 


Data Type Conversion Chart 


RETURNS 24 BITS LEFT 
ZERO FILLED OR 
TRUNCATED AS 


CONVERT 
cont 


NO CHANGE, SEE SECOND SET OF 
EXAMPLES THAT 


CONVERT 
cont 


EXAMPLES. 
Assume that datasname CX contains a character whose binary value is 
OO0O000111» and data=name B is declared type BIT (4). 


Exagoles | Comments 
B := CONV CCX»CHARACTERS4)3 The contents of data=name B 
contain the hexadecimal value 
F (Ott 9 


B := CONV CCX» CHARACTER? 3)3 The contents of datas™name B 
contain the octal value of 6 
(0110). Only the rightmost 
three bits of datasname (CX are 
assigned to B. 


Assume datasname CARD contains the characters + 4095» and FX is of 
type FIXED. 


Exageles 7 Ceononeots 


FX := CONV CCARD» FIXED): The contents of FX contain 
: hexadecimal OQOO7FF. 


DECLARE N FIXED» B BIT (8)3 


N $= +53 : Datasname N contains the value 
*+00---101 at object runtime. 


B := @BCe; | : Datasname B contains the hexa- 
decimal value BC Cbinary value 
1011 1100) at object run-time. 


OUTPUT := "ENTRY NO." This statement produces a data- 
CAT CONV CN» CHARACTER) string object runstime in the 
LS" form of: "ENTRY NO. + 
CAT CONV CBs CHARACTER>» 0000005 IS 2330." 


2)3 


In the preceding example» the Literal value "ENTRY NO."» the result of 
converting datasname N» the Literal value "IS"» and the result of con- 
verting datasname B are made into a continuous string of data by the 
insertion of concatenation CCAT) function designators. The result of 
converting the FIXED value contained in datasname N to a printable 
character is +0000005 with no suppression of Ots (zeros) or arithmetic 
signe The result of converting the bit value contained in datasname 38> 
when using the character=tosquartal syntax as specified» is as follows: 


8-10 


ae 
be 
Ce 


10 
2 
F2 


11 
c 
F3 


i 
3 
F 3 


00 
0 
FO 


Cbinary). 
C(quartal). 
Chexadecimal 


character). 


CONVERT 
cont 


DATE 


DAIE-EUNCIICNs : 
The DATE function returns a string that contains the current months 
day» years» or Julian date. © 


SYNTAX. 
The syntactical structure of the DATE function is as follows: 


Juutay |, 


BII 
MONTH 
DAIE | ¢ 2 < ELXED ) 


DAY 
CJABACTER 
YEAB 


DESCRIPTION. 
DATE without the option is the same as DATE (MONTHs CHARACTER). 


The format of each option and the lengths of the strings are as 
follows: 


Qetigo Eocwat : Bit nae Cbacactecs 
JULIAN YY/DDD : 7/9 2/3 2/3 
MONTH MM/DD/YY ) A/S/ST 2/2/2 2/2/2 
DAY DD/MM/YY | 5/4/7 2/2/2 2/2/2 
YEAR YY/MM/DD : 7/ 4/5 2/2/2 2/2/2 


Notation used in the preceding table is as follows: 


ae YY equals the years DD or DDD equals the day» MM equals 
the month. 


be Digits are equal to four bits» that is» two decimal digits 
per byte. : 


Cs Characters are equal to eight bits. 


DECIMAL-EUNCIIONs 


The DECIMAL function converts the right™most 24 bits of an expression 
from a binary value to a charactersstring. 


SYNTAX. 
The syntactical structure of the DECIMAL function is as follows: 


DECIMAL Cexpression=1 2 expression=2) 


DESCRIPTION. 

The right=most 24 bits or less Of exnression=1 are converted from a 
binary value to a decimal character=string equal to the number of char 
acters in length requested in expression"2. No more than eight charac™ 
ters are produced. If the decimal character=string is greater than the 
Length requested in an expression"2» truncation occurs on the left. 

If the character=string is less than expression=2» hexadecimal (00) 
zeros are padded on the left. 


EXAMPLES. 
Examples describing the use of the DECIMAL function are as follows: 


Cxapeles Comments 
X s= DECIMAL CA» 4)>3 - Datasname A is converted from a 24"bit 
binary value to a 4"character numeric 
string. 


z := DECIMAL C@FF@s 3)3 Z now contains the charactersstring 255. 


HEX «SEQUENCE.NUMBER 


HEXeSEQUENCE.NUMBERLEUNCTION: 

The HEX.~SEQUENCE-NUMBER function allows the hexadecimal equivalent of 
the sequence number of the source Language statement to be referenced 
at runtime. 


SYNTAX. : 
The syntactical structure of the HEX.SEQUENCE.NUMBER function is as 
follows: 


HEXeSEQUENCE NUMBER 


DESCRIPTION. 
The HEX-SEQUENCE.~NUMBER results in a bit=string of eight hexadecimal 
digits that represents the sourceLanguage line number being compiled. 


EXAMPLE. | 
An example of the use of the HEX.SEQUENCE-NUMBER function is as 
follows: 


Exapole | Comments 
X = HEX.SEQUENCE.NUMBER The value assigned to the data=name X 
12753000 at runstime is @€4)127530008. 


LE-EUNCIION: 


The IF function is used to conditionally evaluate one expression from 
a set of twWOe 


SYNTAX. 
The syntactical structure of the IF function is as follows: 


IE expression=1 [HEN expression 2 ELSE expression=3 


DESCRIPTICN. 

If the value of expressionw1 is TRUE» that is» the least=significant= 
bit is ail» the value of the expression that follows the THEN becomes 
the value of the IF function. If the value of expression=1 is FALSE» 
the value of the IF function is the value of expression*3. Notice that 
the IF function differs from an IF statement because it is an expres 
sion rather than a statement. It results in a value that must be used 
in a larger expression. 


EXAMPLES. 
An example describing the use of the IF function is as follows: 


Exagoles ; Comments 

X := IF B MOD 2 Datatname X is assigned the word QOD if B is 
THEN “ODD* an odd number. If B is an even numbers data- 
ELSE "EVEN"; name X is assigned the word EVEN. 


LENGTH 


LENGIYUL-EUNCTION: 
The LENGTH function returns the expression length in a 24"bit type BIT 
value formate 


SYNTAX. 
The syntactical structure of the LENGTH function is as follows: 


LENGIH (expression) 


DESCRIPTION. 
If the expression returns a character- strings the LENGTH is the number 
of characters; otherwises the LENGTH is the number of bits. 


EXAMPLES. 
Examples describing the use of the LENGTH function are as follows: 


Examoles | Comments 


X s= LENGTH CABC)3 The Length of the data named by 
. ABC i8 assigned to Xe 


X ?= LENGTH CT™WARM")3 x contains a binary value of 4. 


LIMITsBEGISTEBLEUNCTION: 


The LIMIT.REGISTER function returns the main memory Limit address of 
the data space of a program. 


SYNTAX. 
The LIMIT.REGISTER function syntax is as follows: 


LIMIT: BEGISIEB 


DESCRIPTION. 
The LIMIT.REGISTER function returns a 24"bit value that is the absolute 
main memory address of the data space of a program. 


In a multiprogramming environment two successive executions of the 
LIMIT.~-REGISTER function may not yield the same results because the MCP 
may have moved the data of the program to a new Location in memory. 


MEMORY SIZE 


MEMOBY.-SIZE-EUNCTIONs 

The MEMORY SIZE function returns the size of the requested available 
memor ye 

SYNTAX. 


The MEMORY SIZE function syntax format is: 


pee eeeee 
IZe 


s2eMEMes 


DESCRIPTION. 
The requested memory size is returned as a 24=bit binary value 
indicating the number of bits in the memory. 


SeMEM-SIZE is the size of all installed main memory including any 
being utilized as control memory. 


MeMEM-SIZE is the size of high=speed control memory installed in the 
processing unit. 


MORD-EVNCTIONs 


The MOO function results in the remainder of a divide. 


SYNTAX. 
The syntactical format of the MOD function is as follows: 


DESCRIPTION. 

The MOD function returns a value chat is the remainder of a divide. 
If both the divisor and the dividend are type FIXED» the MOD returns 
a FIXED value. 


I f aarner or both are not type FIXED» then the MOD returns a positive 
24-bit value. 


EXAMPLE. 
An example describing the MOD function is as follows: 


Examole Comments 


X Y MOD 52 The value assigned to X is in the range 0 to 51. 


NAME.OF.DAY 


NAME2QEsOAYEUNCIIONe 3 
The NAME.OF.DAY function is a class II reserved word that returns a 
charactersstring for the name of the day. 


SYNTAX. 
The syntactical structure of the NAME.OF-DAY function is as follows: 


NAMEsQEs DAY 


DESCRIPTION. 
The returned character=string is nine characters longs left=justified 
with trailing blanks. : 


SEABCHsLINGEDsLISTICUNCTIION: 


The SEARCH-LINKED.LIST searches a predefined structure for a true 
condition. 


SYNTAX. 
The syntactical structure of the SEARCH-LINK-LIST function is as 
follows: 


SEABCHaLINKEQsLISI C expressionw1 2, expression=2 g expression=3 2 


relationat 2g expression"4 ) 


DESCRIPTION. 

The predefined structure is searched for a true condition or until the 
end of the structure. If a true condition is founds the base relative 
address of the substructure is returned. If the search fails» @FFFFFF®@ 
is returned. 


Expression-1 is the base relative address of the first substructure to 
be examinede 


Expressione2 is the relative offset Cin bits) in the substructure of 
the 24-bit field being compared with expression=3. 


Expression=3 is the 24-bit data being compared with a field in the 
substructure. 


The relational is one of the relational operators» that is» 


GTR 


EQL = > 
NEQ A LEQ < 
LSS < GEQ > 


Expression=4 is the relative offset in the substructure of the 24-bit 
field containing the base relative address of the next substructure to 
be examined if the comparison fails. 


NOTE 
The SEARCHeLINKED.LIST 
function is used by the MCP 
to allocate memory space. 


SEQUENCE.NUMBER 


SEQUENCE SNUMBEBLEUNCIION: | 
The SEQUENCE.NUMBER function allows the character equivalent of the 
source language line number being compiled to be used in the programe 


SYNTAX. 
The syntactical structure of the SEQUENCE.~NUMBER function is as 
follows: 


SEQUENCE LNUMBER 


DESCRIPTION. | 

The SEQUENCE.NUMBER function results in a character-=string of eight 
EBCDIC characters that represent the sequence number of the current 
source language statement being compiled. 


EXAMPLE. 
An example describing the use of the SEQUENCE.NUMBER function is as 
follows: . 


Exaoele CQnmeot 
Z ?= SEQUENCE.NUMBER The character string "01234500" is assigned 
01234500 to data=name Z. 


SUBBII-EUNCIION« 


The SUBBIT function provides the capability to address one or more 
datasbits within a data=name. 


SYNTAX. 
The syntactical structure of the SUBBIT function is as follows: 


| j literal~1 \ Literal-2 
SUBBLI QCdata-namen-1l, Ve ae z2< datasname™3 


expression@1 expression=2 


DESCRIPTION. 
Datasname 1 is considered a data=name of type BIT regardless of its 
previous declaration. 


Datasname 2» literal=1» or expression=1 at object run-time is evaluated 
as a positive number that is used as the ordinal position of the first 
bit to be accessed within the specified bit=string. The most signifi>- 
cant bit Cleft=most) within a bit-string is bit 0. 


Datasname 3» lLiteral=2» or expression=2 is evaluated as a positive num= 
ber that is used as the number of bits to be accessed within the bits 
string. 


The omitting of datasname 3» lLiteral=-2» or exoression=2 results in the 
accessing of a string from the bit specified hy the value of data =name 
2 tbheaugb the last bit in the string. 


A rangescheck is performed on datasname 2 and data™name 3» and an out= 
of=bounds value causes an interrupt of the programe That is» data- 
name 2 gyst point into the string» and data=name 3 must not specify 
more bits than exist between the first bit being accessed and the end 
of the string. 


A resultant vatue of 0 (zero) for datasname 3 is valid and results in 
no accessing of the data. 


If a SUBBIT function appears to the left of a replacement operators it 
is treated as a datasname. Truncations fill» and data alignment are 
performed by the operator with type BIT being the destination field= 
type. If datasname 2 or data=name 3 is declared as being of type 
CHARACTER» it is evaluated as being a binary number. That is» if a 
value of 1 is given» it is equal to the internal EBCDIC value of 
11110001» which converts to a decimal representation of 241» which 
results in the accessing first of the 241st bit within the string. 


The SUBBIT function may be passed to a procedures by name or by values 
according to the following conventions: 


ae Statement SUBBIT Cdatasname 1» datasname 2» datasname 3) 
is defined as being a pass™by=™name. 


SUBBIT 
cont 


be Statement CSUBBIT Cdatasname 1» datasname 2» data=name 3)) 
is defined as being:.a passshys=value because of the extra 
set of parentheses that surrounds the entire statement. 


EXAMPLES. 
An example describing the use of the SUBBIT function is as follows: 


Exaonles CQouments 


DECLARE SBIT FIXED; 
SBIT := @(1)0010089%5 


A := SUBBIT CSBIT» 23» 1)3 Statement replaces datasname A with 
a Oe 

A := SUBBIT CSBIT» 21» 1)3 Statement replaces datasname A with 
ale 


DECLARE SBIT BIT (11)>» 
AX2 BIT (9)>5 
SBIT := @C€1) 110111100185 
AX2 := 9C€1) 10001010003 © 
SUBBIT CAX2»s 3) te 
SUBBIT CSBITs 35 2)35 Then» AX2 contains 100110000. 


DECLARE OBJ.CODE BIT (16)» . 
S§0c.cODE FIXED; 
SUBBIT (OBU.CODE»88) := | The rightsmost eight bits of the type 
SOC.CODES FIXED variable SOC.CODE are assigned 
to the right=most eight positions of 
OBJ.CODE. 
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[ susste | 
QUBSIB.EUNCIION: 


The SUBSTR function provides the capability of addressing character 
substrings within a data=™name. 


SYNTAX. 
The syntactical structure of the SUBSTR function is as follows: 


literal-1 literal=2 
SUBSIB Gdata=namenly datasname=2 2 data*name=3 


expression=1 expressione2 


DESCRIPTION. 
Datasname 1 is considered of type CHARACTER regardless of the type in 
its declare statement. 


Datasname 2» lLiteral™1» or expression=“1 at object time is evaluated as 
a positive number that is used as the ordinal position of the first 
character to be accessed within the character"string.e. The most signif= 
icant Cleft=most) character within a character=string is character 0. 


Datasname 3» lLiteral=2» or expression=2 is evaluated as a positive num-= 
ber that is used as the number of characters to be accessed within the 
characterestring. . 


The omitting of data™name 3» literal-2»s or expression=2 results in the 
accessing of the string from the character specified by the value of 
datasname 2 througb the last character in the string. 


A range check is performed on datastname 2 and datasname 3» and an out= 
of=bounds value causes an interrupt of the programe That is» data 
name 2 gust point into the strings» and datasname 3 gyst_pgot specify 
more characters than exist between the first character and the end of 
the string. 


A resultant value of 0 (zero) for data=tname 3 is valid and results in 
no accessing of data. 


If a SUBSTR function appears to the left of a replacement operators it 
is treated as a datastname. Truncations fills» and data alignment are 
performed by the operator with type CHARACTER being the destination 
field-type. That is» if the source field is pot of type CHARACTER» the 
alignment is to the right and is controlled by the data=name 2 position 
and the number of characters specified by datasname 3. If» however» 
the source field is of type CHARACTER» the alignment is left-justified 
to the position as specified by datasname 2 and is controlled by the 
contents of datasname 3 to determine the number of positions in length. 


If datastname 2 or data=name 3 is declared as being data of type 
CHARACTER» it is evaluated as being a binary number. That is» if a 
character 1 718 givens it is equal to the internal EBCDIC value of 
11110001» which converts to a decimal value of 241» which results in 
the accessing first of the 241st character in the string or a string 
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SUBSTR 
cont 


Length of 241 characters. 


The SUBSTR function may be passed to a procedures by name or by vatuere 
according to the following conventions: 


Ge Statement SUBSTR Cdatasnane 1» datasname 2» datasname 3) 
is defined as being ‘a pass™by=name. 


be Statement (CSU8STR Cdata=name 1» datasname 2» datasname 3) ) 
is defined as being a passmby=value because of the extra set 
of parentheses that surrounds the entire statement. 


EXAMPLES. 


In the following examples» assume a data=name of ALPHA that contains a 


character=strina consisting ot all 


sequence from A through Z. 


Examoles 


X £= SUBSTRCALFA» O» 1)3 


X #= SUBSTRCALFA» 24)3 


No ot= O>» 

DC ODD FOREVERS 

SUBSTRCPRINTs» Ns» 1) 22 

SUBSTRCALFA» 2 * Nv» 1)3 

N = N + 13 

IF €2 * N) GTR 25 THEN 
UNDOS 

END ODD; 


ABC := "QPPOSITE"s 
CH s= "VAULT"; 
SUBSTR CABC» O» 1) 


= SUBSTR 
CGis is 19% : 


26 Letters of the alphabet in 


Commeots 


Natasname X contains an A. 


Qatasnmame X contains the letters 
YZe 


Assume N is type FIXED. 


Data*name PRINT contains every other 
letter in the strings for examples, 
A C E eee W Y. 


This statement replaces data™name ABC 
with APPOSITE» and CH remains as 
VAULT. 


SHABLEWNCTION: 


The SWAP function is used to synchronize asynchronous processes. 


SYNTAX. 
The SWAP function format is as follows: 


SHAR Cdatatnamezg expression) 


DESCRIPTION. 

The value of the expression is exchanged with the contents of the data= 
name in One main memory cycles and the former contents of the data=name 
are returned by the SWAP function. 


The length of the data to be SWAPped is either the length of the data 
name or the rightmost 24 bits of the datasname» whichever is less. The 
Length of the expression is padded or truncated to the length of the 
operation in accordance with the rules of the assignment operator. 


EXAMPLES. 
Examples describing the SWAP function are as follows: 


Examoles | Comments 


IF SWAP CAs1) ~ If A contains a 0 Czero)» the 
THEN CALL ASSIGN.SPACEs ELSE portion is executed and A 
ELSE CALL< LOOK.FOR.MORE.SPACE3 then contains a 1. If A 

contains a is the THEN portion 
is executed and A then contains 
a Le 


I: = 33 ACI): = SWAPCIs I4+1)3 An equivalent set of statements 
is as follows: 


I: = 33 
ACT): =33 
I: = 3 + 13 


DECLARE STNG CHARACTER (16)> 
B CHARACTER (3)>» 


A FIXED; Data™name B now contains the 

STNG: = “THE VALUE IS 000"5 characters 000 while STNG con 

As = 1233 tains 123. Notice that the 

Bs = SWAPCSTNGsCONV ; rightmost 24 bits of the second 
CA» CHARACTER) )3 expression are used regardless 


of the datatype. 


rave | 


TIMELEUNCIION: 
The TIME function returns a strina that represents the current time of 
daye 


SYNTAX. 
The syntactical structure of the TIME function is as follows: 


j Gil 
QIGIl 


CHARACTER 


DESCRIPTION. 
The TIME function without the option is the same as TIME CCIVILIAN>» 
CHARACTER). The format of each ontion and string length is as follows: 


Length 
Qetiegn Egcmat Bits Rigits Charastecs 
COUNTER TTTT 20 6 6 
MILITARY HHMMSST 4/6/6/4 | 2/2/2/1 2/2/2/1 
CIVILIAN HHMMSSTAP 4/6/6/4/16 2/2/2/1/4 2/2/2/1/2 


Notation used in the preceding table is as follows: 


ae HH equals hours. 

be MM equals minutes. 

Ce SS equals seconds. 

de T equals 10th of a second 

ee. AP equals AM Cante meridiem) or PM Cpost meridiem). 


A digit is a 4=bit decimal number. 


NOTE 
Time durations of less 
than one 10th of a second 
may shaw zero elapsed time. 


IGQAYS2QATE-CUNCTION.: 


TODAYS.-DATE function is a class I reserved word that returns a 
characterstring that represents the time and date the program is 
ccempiled. 


SYNTAX. 
The syntactical structure of the TODAYS.DATE function is as follows: 


TORAYSsDAle 


DESCRIPTION. 

The date and time are the date and time the program is compiled. The 
format of the 14"character string that is returned from the TODAYS.DATE 
function is MM/DD/YY HH:MM. 


SECTION 9 


HOW TO WRITE A UPL PROGRAM 


GENEEG ALS: 

The writing of a computer proaram presupposes an understanding of the 
problem to be solved and-a selection of the programming language most 
suitable to efficiently solving that problem. Assuming that these 
conditions are satisfied» the following considerations should be kept 
in mind as a guide in writina a UPL source Languaqe program. 


WRITING BULESs 

The UPL Compiler accepts a card image input file where columns 1 
through 72 may be used for statements» declarations» or comments and 
where columns 73 through 80 are the card sequence™numbers and/or 
identification field. 


The ceding can be snecified in a completely free forms that is» any 
number of statements,» declarations» or comments can appear ona single 
card or over as many cards as desired. Column 72 is considered 
adjacent to column 1 of the next card. Extra snaces can be used freely 
throughout the UPL code to improve the readability of the text. A per= 
cent sian (%) denotes that the rest of a card is composed of comments. 
It can be used to delimit the scan procedures thus increasing compile 
sneede 


EXAMPLES. 
For examples the IF statement can be written as: 


Exanole Compueot 


Fach Line on the page represents a 


IF X EQL Y THEN X °¢ 
X 8 separate card. 


ELSE 


hott 
— © 
‘eo ‘eo 


EQRMIOELAVELCBOGRAMs 

Programs are divided into logical units called PROCEDURES» each having 
a head statement at its beginning and being terminated with an END 
statement. PROCEDURES have an internal structure as described in the 
procedure statement. A PROCEDURE has a definite ordered relationship 
to all other PROCEDURES within a program from either a side=by=side 
C(parallel*PROCEDURE) or subordinate Cnested=PROCEDURE) position in that 
programe The ordering inherently defines the scope or range of a datas 
name and the PROCEDURE(Cs) that may be invoked from a given PROCEDURE. 


In the description that follows» the main procram (lexicographical 
Level 0) is considered a PROCEDURE except that it has no head or END 
statements and therefore cannot be recursively invoked. 


Data=names and nested PROCEDURES that are used within a PROCEDURE must 
be declared and completed before any executable statements in that 
PROCEDURE. 


The outersmost PROCEDURE is considered to be the programe The 
PROCEDURE(CS) contained within the program are considered nested at 
least one level downs that is» they are on lLexicographical level 01 or 
greaters with the maximum depth of 15 sublevels. 


Figure 9=1 shows the structure of a typical» though arbitrary» UPL 
programe Each bracket represents a PROCEDURE and is Labeled as being 
PROCEDURE@n (Psubn) through END=n CEsubn). The declarations and 
executable statements are indicated as being Nsubn and Xsubn» where n 
denotes the PROCEDURE to which the statement belongs. Although the 
number and nesting of PROCEDURES will vary among programs» the 
relationship of the parts» declarations» nested=PROCEDURES» and their 
executable statements gpustragoeac_iothe.ocder_showo-. That is» all 
DECLAREs for a given PROCEDURE must appear in that PROCEDURE before 
declaration of any nested PROCEDURE and before execution of any state” 
ments. When one or more nested PROCEDURES are declared» however», they 
must be completed in their entirety Cincluding the executable state> 
ments) before the first executable statement of the parent PROCEDURE 
can be specified. 


Five PROCEDURES» three of which are on lexicoaraphical level 1 CPsubl» 
Psub2» and Psub3) and two on lexicographical level 2 (Psub4 ard Psub5) 
are shown in figure 971. The outer=PROCEDURE is called the program and 
has no PROCEDURE head or END statements. The FINI card is used to 
signify the end of compilation. 


Exanpeles 


DsubO 
DsubO 
Psubl 
 Dsubl 
Dsubl 
Xsubl 
Xsubl 
Esubli 


Psub2 
Dsub2 
Dsub2 


Figure 9-1. 


Comceots 
Declare global datasnames (lexic level 0). 


Begin PROCEDURE 1 Clexic level 1). 
Local data declarations of PROCEDURE 1. 


Executable statements of PROCEDURE 1. 
END of PROCEDURE 1. 


PROCEDURE 2 Clexic level 2). 
Local data. 


Executable statements of PROCEDURE 2. 


END of PROCEDURE 2. 


Local data=names of PROCEDURE 3 that also are 
global to PROCEDURES 4 and 5 C(Clexic level 1). 
Local data=names of PROCEDURE 4 Clexic level 
2)e 


Executable statements of PROCEDURE 4. 


END of PROCEDURE 4. 
Local datasnames of PROCEDURE 5 Clexic level 
2). 


Executable statements. of PROCEDURE 5S. 
END of PROCEDURE 5. 


END OF PROCEDURE 3. 


First executable statement in program. 


Last executable statement in progran. 


Typical UPL Program 
Schematic Diagram 


Execution of an object UPL Program starts at the first executable 
statement in the outermost PROCEDURE (statement Xsub0) and is the 
statement that immediately follows: gll_nestsd_PBOCEDUBES.- Execution of 
statements then continues successively from statement to statement 
within the outermost PROCEDURE or until a STOP statement is encountered. 


Since the source code line format in UPL is very flexible» it is 
Suggested that statement levels be indented on new cards to improve the 
documentation references and the general understanding of a program. 
Thus» each new PROCEDURE may be indented to a new margins and its 
corresponding END may be placed on that same margine Also» since 
statements can contain other statements (such as DO» IF» and CASE)» 
each lower statement level may be indented. When a higher level is 
resumed» its statements should be placed at the proper level margin. 

It should be noted that this is gnly a suggestion and that indenting 

of statements will in no way affect operation of a UPL Program. 


Studying the examples and the detailed descriptions of UPL 
statements and declarations in this manual should aid in understanding 
how a UPL Program is written. 


PROCEQUBE_CALLINGs 
Any PROCEDURE can call Cinvoke) any other PROCEDURE that is currently 


invoked Cany direct ancestor) or any PROCEDURE that is nested one Level 
down within a currently invoked PROCEDURE Cany first=generation 
descendant). 


For definitional purposes» the program is considered to be the outers 
most PROCEDURE and is always in a currently invoked status. 


CONCEPT OF SCOPE. 

The rule follows directly from the concept of scopee Each PROCEDURE 
passes all of its declared names as gtobals to all its descendants. 
This includes the names of all PROCEDURES nested one level down. 
Notice the difference between the name of a PROCEDURE on the current 
lexic Level and the PROCEDURE being named that is on the next Lower 
lexic level. 


RELATIONSHIPS. 


Let figure 9"2 depict the compiletime relationships of the specified 
PROCEDURES. 


9-4 


LEXTC“@LEVEL*4 


Figure 9*2. Procedure Comnile 
Time Relationships 


Then tne SCOPE or range of each PROCEDURE is as follows: 


ae PROCEDURE BN can invoke any of the following: PN» PAAB» PAA» 
PA» PABs PBs or PC. 

be. PROCEDURE BB can invoke any of the following: PA» PB» and PC. 

ce The parent PROCEDURE can invoke PAs PBs and PC. 

de. PROCEDURE PAB can invoke PAB» PABA» PA» PAA» PB» and PC. 


As another examples tet A» Bs» Cs» De» Lx» Me and K he the names of a set 
of PROCEDURES imbedded in some program. If the compile=time relation= 
ship of the PROCEDURES is: 

A CB (K)» C CLseM)» DO) 


then the SCOPE of a PROCEDURE“invokina statement in each PROCEDURE is: 


ae A can call A» Bs Cy» or OD. 

be B can call Bs Ks A» Cy» or De 

ce K can call K» Bs A» Cy» or De 

de €¢ can call C» L» Ms A» or Be 

ee | can call L» C» Ms A» Bey or De 
f. M can call Ms» Cs» Ls» A» Bs or De 
Ge PB can call D» A» Bs or Ce 


In the previous examples the schematic could be represented as shown in 
figure 973. 


(A) 
CB (© © 


OO W 


QC 


Figure 973. Nesting Examples 


COQOING.EXAMCLES: . 

A flow chart of a program that reads a card» extracts 11 fields of seven 
columns each» converts each field to a FIXED numbers and then prints 

a copy of each FIXED number is shown in figure 974. Two methods that 
can be used to code this problem follow the flow charts» with the first 
method Cfigure 9°5) being a straigntsforward approach that follows the 
flow chart logic closely. The second method (figure 9°6) uses recursive 
PROCEDURE techniques and more readily exemplifies a typical UPL Program. 
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CONVERT 
STORE 
FIXED 

DATA 


HOUSEKEEPING . 


CONVERT 


EXTRACT 
NEXT SEVEN 
COLUMNS 


INCREMENT 


A BIT THROUGH 
TO | FIXED FIELD 
A CHARACTER BY BITS 


INCREMENT 
TO NEXT 
FIELD 


Figure 9-4. Programming Flow Chart 
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BURROUGHS B1700 UPL COMPILERs MARK III.1 (12/20/72 10:21) TUESDAY >» 2/ 6/736 


NL SEQUENCE 


SOURCE IMAGE 
2$ CONTROL 
$$ SINGLE 


SDECLARE CD CHARACTER (80)¢+ CHAR CHARACTER (24)6 F (11) FIXED 3 
sDECLARE ( NeMe COL) FIXED 

sFILE IN ¢€ DEVICE = CARD) $3 & 

sFILE OUT ¢( DEVICE = PRINTER )3 & 

OPEN IN INPUT$ 

“OPEN OUT OUTPUTS 

N :=M :=COL :=03 


AD IN (CDT 


c 
DO PR1 FOREVER: 
IF COL GTR 70 THEN UNDO PRI3 
FIN) s= CONV(SUBSTRI(CDeCOLe7)» FIXED) $ 
COL t= COL + 73 
BUMP N3 
END PRI1$ 
s= 03 
DO PRe FOREVER? 
M:=03 
DO PR3 FOREVER? 
SUBSTRICHAReMel) 32 CONV(SUBBIT(F(N) eMol)e CHARACTERs1)$ 
BUMP M3 
IF 4 GTR 23 THEN UNDO PR33 
END PR33 
WRITE OUT (CHAR) 3 
BUMP N3 
IF N GTR 10 THEN UNDO PR23 
END PR23 
CLOSE IN$ 
CLOSE OUTS 
STOP: 
FINI’ 


0 


« 
¥' 
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PROCEDURE. 


SEGMENT 


(2 $9 2 3884S) 
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COMPILE STATISTICS: 


NUMBER OF ERRORS DETECTED: 0 


NUMBER OF CARDS SCANNED: 30 
NUMBER OF TOKENS SCANNED? 197 


LL ZERO NAME STACK ENTRIES: 8 


PROGRAM STATISTICS 


RUN 


CORE REQUIRED TO RUN: 4864 BITS | 
NUMBER OF SEGMENTS: 2 

SIZE OF LARGEST SEGMENT: 1725 BITS 
TOTAL SEGMENT SIZE? 1725 BITS 
DISK SIZE: 8 SEGMENTS 

STATISTICS: 


NAME STACK SIZE: 12 ENTRIES 

CONTROL STACK SIZE 15 ENTRIES 

PROGRAM POINTER STACK SIZE: 25 ENTRIES 
EVALUATION STACK SIZE$ 20 ENTRIES 
VALUE STACK SIZE: 1168 BITS 

PROGRAM STATIC CORE: 4736 BITS 
PROGRAM DYNAMIC CORE: 0 BITS 


COMPILE TIMES: 


ELAPSED TIMES 03:01:55.2 
PROCESSOR TIME: (NOT AVAILABLE) 


OT=6 


7294S) 
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QURROUGHS B1700 UPL COMPILER» MARK III.1 (12/20/72 10:21) TUESDAY» 2/ 6/736 


LL NL SEQUENCE sSOURCE IMAGE 


a 2$ CONTROL 

0 Oo $$ SINGLE DETAIL 

0 oO :DEFINE CH AS # CHARACTER #» CALL AS ##3 % CALL IS A NULL SYMROL. 
0 O ZDECLARE WORK(11) FIXEDs PeNUMB CH (24)5 CD CH (80)3 


0 0 sFILE IN (DEVICE = CARD)» OUT (DEVICE = PRINTER )3 

0 0 : PROCEDURE Pl (Xx)3 

0 0. $ FORMAL (%) FIXED? 

1 0 4 IF X LSS 76 THEN CALL P1(X#7)3 % A RECURIVE CALL 

1 ] 7 WORK (X/7=-1) &8= CONV(SUBSTRICDsX=797)9 FIXED)3 

H o 7 RE TURNS 

1 0 s END Pl? 

0 0 : PROCEDURE P2 (Y)3 

0 0 $ FORMAL (Y) FIXED$ 

1 0 : PROCEDURE P3 (2)3 

l 0 : FORMAL (7) FIXED$ 

2 0 $ IF Z LSS 23 THEN CALL P3(741)3%A RECURSIVE CALL ON P3 

2 1 $ SUBSTR(P.NUMBoZe1) se CONV(SUBBIT (WORK (Y) 62791) eCHel) 3 
CHARACTER 

2 0 $ END P33 

1 0 : IF Y NEQ 0 THEN CALL P2(Y=-1)%8 %RECURSE P2 

1 l : CALL P3(0)3 

| 0 H WRITE OUT (P.NUMB) 3 

1 0 H END P23 

0 0 : OPEN IN INPUT? 

0 0 sOPEN OUT OUTPUTS 

0 0 s CALL P1(7)3 

0 0 s CALL P2{10)3 

0 0 : STOP$ 

0 0 : FINI 
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PROCEDURE 


Pl 
P} 
Pl 
Pl 


pP2 
p2 
P3 
pP3 


P3 


Pe 


P2 
P2 


SEGMENT 


TT76 


(2 $9 @ 3984S) 


2 9)dwexg SGurmweswboud 
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COMPILE STATISTICS: 


NUMBER OF ERRORS DETECTED: 0 


NUMBER OF CARDS SCANNED: 26 
NUMBER OF TOKENS SCANNED? 211 


LL ZERO NAME STACK ENTRIES? 5 


PROGRAM STATISTICS 


RUN 


CORE REQUIRED TO RUN: 4696 BITS 
NUMBER OF SEGMENTS: 2 

SIZE OF LARGEST SEGMENT: 1409 BITS 
TOTAL SEGMENT SIZE: 1409 BITS 
OISK SIZE: 7 SEGMENTS 

STATISTICS: 


NAME STACK SIZE: 10 ENTRIES 

CONTROL STACK SIZE? 15 ENTRIES 

PROGRAM POINTER STACK SIZE: 25 ENTRIES 
EVALUATION STACK SIZE? 20 ENTRIES 
VALUE STACK SIZE: 1096 BITS 

PROGRAM STATIC CORE: 4568 BITS 
PROGRAM DYNAMIC CORE: 0 BITS 


COMPILE TIMES: 


ELAPSED TIME: 02:02:06.8 
PROCESSOR TIME: (NOT AVAILABLE) 


COMMENTS ON PROGRAMMING EXAMPLE 2, 
The statement “IF 
to PROCEDURE Pl. 

statement that is 
RETURN statement. 


space for the new parameter being passed. 
for ex 


execution» 
sequence of 


CALL. .PA 
CALL Pl 
CALL Pl 
CALL Pl 
CALL Pl 
CALL Pi 
CALL Pi 
CALL Pl 
CALL P1 
CALL. PE 
CALL Pi 


state 


(7)3 

C14)3 
C21)>5 
(28); 
(35)>5 
C42); 
C49); 
(56)> 
C63); 
(70)3 
C77)3 


WORK (77/7 = 
WORK (70/7 = 
. C6370 "= 


WORK C777 = 11) 


Procedures P2 and P3 use similar 


for a total of i1 
Recursive calls will not generate new code because all procedures in 
UPL are rewentrant. 


X LSS 76 THEN CALL P1C€X+7)3" will generate 10 calls 
With each call» an address will point to the next 
to be executed when the called PROCEDURE executes a 
Each invocation of Psub1 also will generate new 


Run=time statement 


ample» then will be equivalent to the following 


ments: 


ONVCSUBSTR (CDs 77 = 7s 7) 3)3 
ONV (sere s@ Cans £0 -— Te 13%. 375 


— ee bee 
pees 
ee s¢ 
uM onwou 
(o> i a) 


iterations and from 23 to 0 in P3 for 24 


= CONV Cee se eet eesen, 7 - 7» mee) wen); 


Logic counting down by 1 from 10 in P2 


iterations. 


SECTION 10 


UPL COMPILER CONTROL 


COMELLE.DECK. 


To ccmpile a UPL: Program from cards» the following control cards are 
required: 


@COMPILE pg-nametwithJUPL -LICBRARY] 
C?FILE STATEMENT CARDS] FILE cards can be used to relabel the 


compiler files. (Refer to FILE 
statement in the Software Qrerational 


Manual.) 

2DATA CARDS 

CENEW] 

UPL SOURCE CARDS 

FINI 

TEND 

The UPL Compiler files are: 

Eils es Ff Comment 
CARDS Card source input file. 
SOURCE Primary source file if $MERGE is used. 
NEWSOURCE Updated source output file if SNEW is used. 
LINE Line printer file. 


The $NEW compiler control will create a source file on disk that may 
have other source images merged during compilations. 


Exaools 
To compile using a source file on disk and merge additional source 


images» use the following control cards: 
TCOMPILE PG"NAME CWITH] UPL LICBRARY] 
C?FILE STATEMENT FOR SOURCE] 
C?FILE STATEMENT FOR NEWSOURCE] 
2DATA CARDS 


EMERGE 


10-1 


C$NEW] 
UPL SOURCE IMAGES TO BE MERGED CPATCHED) 


UPL SOURCE IMAGE WITH SEQUENCE FIELD EQUAL 99999999 
FINI 
PEND 


COMEILEB-CONIBOL.CABR_ORIIONS« 

All compiler control cards must have a # (dollar sign) in column 1. 
Control ontions may appear anywhere from columns 2 through 71 and must 
be separated by a space. Columns 72 through &80O are for sequence num 
bers. 


The word "NO" may aopear before most options. It turns off or reverses 
the effect of the option. 


The following is an alphabetical listina of the options and their 
actions. 


Qetieonos Actions 


AMPERSAND Prints those ampersand cards that 
are examined. 


CHECK Checks the source input. file for 
sequence errors. 


CODE Prints the UPL=object code gener= 
ated for each source statement. 


CONTROL Turns on the printing for all 
following control cards. To see 
the control option printed 
requires two control cards. 


CSSIZE INTEGER Overrides the compiler estimate of 
the control stack size. Integer 
is in number of entries. 


DETAIL Prints the expansion of all define 
invocations. 


DOURLE Double spaces the lListina. 
DYNAMICSIZE INTEGER Overrides the compiler estimate of 


the memory allocated for paged 
arraySe INTEGER is the number of 


EOS 2 


Qoaticos 


ESSIZE INTEGER 


FORMAL.CHECK 


INTERPRETER INTERPRETER MULTI= | 
FILE*NAME/INTERPRETER/FILE NAME 


INTRINSIC INTRINSIC*FAMILY“NAME 


ETST 


LISTALL 


MERGE 


NEW 


NO 


Actigoos 


bits allocated. 


Overrides the compiler estimate 
for the size of the evaluation 
stack. INTEGER is the number of 
entries. 


The actual parameters passed to 
each procedure will be checked» 

at execution times» against the 
types and Length specifications of 
their corresponding formal decla= 
rations. Also» the values 
returned from function procedures 
wilt be checked against the type 
and length in the procedure head 
statement. Lack of correspondence 
is a runtime error. 


Changes the default interpreter 
ID from UPL/INTERP1. When the 
program (being compiled) is 
executed» it will require a new 
interpreter as specified. 


Changes the family name of the 
intrinsics to be used when the 
orogram (being compiled) is exec= 
uted. The default intrirsic 
family name is UPL.INTRIN. 


Prints the source input that was 
compiled. A NO list also will 
turn off the LISTALL options. 


Prints all source input whether or 
not conditionally excluded. The 
LISTALL turns on LIST» but 

NO LISTALL does not turn off LIST. 


The primary source file is on tape 
or disk and will have cards 


-merged from the card reader. 


Creates a new primary source file. 
Turns off or reverses the effect 


of any option that immediately 
follows it. 
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Qatigos 
NSSIZE INTEGER 


PAGE 


PPSIZE INTEGER 


SEQ 
CBEGINNING*NUMBER INCREMENT) 


SINGLE 


SIZE 


SUPPRESS 


VOID SEQUENCE NUMBER 


VSSIZE INTEGER 


XMAP 


10°4 


Actigos 


Overrides the compiler estimate of 
the name stack size. INTEGER is 
in number of names. 


Causes a skip to the top of a new 
page listing. 


Overrides the compiler estimate of 
program pointer stack size. 
INTEGER is the number of entries 
in the stack. 


Resequences the new primary output 
file. 


Single spaces the listing. 


Prints code segment names and 
sizes at the end of the compile. 


Suppresses warning messages. To 
Suppress sequence error messages» 
use NO CHECK. 


Voids or removes records in the 
primary source filee Begins at 
the sequence number of the VOID 
card and goes through the sequence 
number following the word VOID. 
The VOID card may not be preceded 
by a NO» must be the only compiler 
option on the cards and must con- 
tain sequence numbers in columns 
72 through 80. 


Overrides the compiler estimate 
for the value stack size. INTEGER 
is in bits. 


Creates an extended UPLwobject 
code MAP file showing the relative 
displacement of object code per 
source card sequence number per 
code segment. 


ACCEPT 


CHARACTER 
DECLARE 
DISPLAY 
DYNAMIC 
ELSE 

EXOR 

FILE 
FIXED 
FORWARD 


VARYING 
WRITE 


APPENDIX A 


CLASS I RESERVED WORDS 


AND 


BIT 


CAT 

CLEAR 
DECREMENT 
DO 


END 


FILLER 
FORMAL 
FROM 

GTR 
INTRINSIC 
LSS 


NOT 

OPEN 
PROCEDURE 
RECEIVE 
SEGMENT 


AS 
BUMP 


CHANGE 
CLOSE 

DEFINE 
DUMMY 

E QL 


FINI 
FORMAL.VALUE 


OR 
REMAPS 
SEND 
STOP 


TODAYS.DATE 


BASE-REGISTER 

CQNV 

DATE 

LENGTH 
MAKEeREAD.ONLY 
NAME.OF.DAY 
REVERSE«STGRE 
SEARCHeLINKED-LIST 
SWAP 

TIME 


APPENDIX 8B 


CLASS II RESERVED WORDS 


BINARY 

CONVERT 
DECIMAL 
LIMIT.REGISTER 
MeMEM.SSIZE 


SeMEM.SIZE 


APPENDIX C 


CLASS III RESERVED WORDS 


ASCII 

BACKUP 

CRUNCH 

DEVICE 
DISK.FILE 
DISK.eFILE.2 
DISK.PACK.CAELUS 
EBCDIC 

END-OF TEXT 
FORMS 

LABEL 

LOCK.OUT 

NEW 

OOD 

QUTPUT 
PAPEReTAPE+«PUNCH 
PARITY 

PUNCH 

RANDOM 

REEL 

REMOVE 

SERTAL 

SPO 

TAPE.7 
TAPE.7s-UPRIGHT 
TAPE.9eCLUSTER 
TAPE «9ePE 
VARIABLE 


AREAS 

CARD 

CRUNCHED 

DISK 

DISK.FILE.1 
DISKePACK 
DISKe-PACK.CENTURY 
EOF 

EVEN 

INPUT 

LOCK 
MULTI-FUNCTION. CARD 
NO~-REWIND 

ON 


PAPER. TAPE «READER 
PRINTER 

PURGE 

RECORDS 
RELEASE 
SECURITY.1D 
SORTER.-READER 
TAPE 

TAPE «7-CLUSTER 
TAPE.9 
TAPE «9 eNRZ 
UNIT 

WITH 


INDEX 


Accept statement» 

description of» 772 

examples of» 772 

syntax of» 7-2 
Accessefileeinformation statementy 

description of» 73 

syntax of» 773 
Access mode option of file statements 7710 
Actual parameters» 2°5 
All.eareaseateopen attribute of change statement» 621 
ALL.eareas.ateopen option of file statement» 7-13 
Areaebyecylinder attribute of change statement» 6-21 
Areaebyecylinder option of file statements 7-13 
Areas option of file statements» 7-12 
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Array data™names 3°2 
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syntax of» 62 
Array in data concepts» 2°72 
Assignments 2°73 
Assignment statement» 

description of» 4-3 633 

examples of» 675 

syntax of» 673 


Backup option of file statement» 7710 
Baseeregister function» 

description of» 8=2 

syntax of» 8=2 
Basic concepts» 

assignments 2°73 

data conceptss 271 

general information ons 2~1 

lexicographic level» 28 

“procedure types» 2°7 

proceduress 274 

replacements 2°73 

scopes 2°79 

singlespass compilers 2-4 
Basic symbols» 1°73 
Bit data types 2-1 
Binary functions 

description of» 8=3 

examples of» 8-3 

syntax of» 873 
Blockseper-area attribute of change statements» 6-20 
Braces in metalanguages 172 . 
Brackets in metalanguages 12 
Buffers attribute of change statements» 6°19 
Buffer option of file statements» 7-11 
Bump statements. 

description of» 6-11 


one 


INDEX Ccont) 


examoles of» 6711 
syntax of» 6711 


Case control statements 473 
Case function» 
description of» 874 
examples of» 8-4 
syntax of» 8-4 
Case statement» 
description of» 6713 
examples of» 6714 
syntax of» 6713 
Cat functions 
description of» 85 
examples of» 8=5 
syntax of» 875 
Change statement» 
description of» 6715 
dynamic attributes of» 6°15 
examples of» 6722 
syntax of» 6715 
Character data type in data concepts» 2-1 
Class I reserved words» A-1 
Class II reserved wordss B=1 
Class III reserved words»s C=1 
Clear statement» 
description of» 6723 
syntax of» 6°23 
Close statement» 
description of» 774 
examples of» 7°5 
syntax of» 774 
Conditional inclusion statement» 
description of» 6724 
examples of» 6724 
syntax of» 6724 
Conditional or relational expressionss 3-7 
Conditional page statement» 
description of» 67°26 
syntax of» 6=26 
Conditional symbol statement» 
description of» 6727 
examples of» 6°27 
syntax of» 6727 
Consecutive periods in metalanguages 172 
Control statementss 47] 
cases 4=3 
do» 4-2 
do forevers 4-2 
ifs 4-2 
procedure calls» 4-1 
Convert functions 
description of» 8-7 
examples of» 8-10 


two 


INDEX C€cont) 


syntax of» 87 


Data conceptss 2-i 
arrays» 272 
bit data types 2-1 
character data types 2-1 
data storage allocations 2=2 
data type conversions 2°2 
duplicate datasnamess 2-72 
fixed data types 2-1 
Datasname values variables 3-4 
Data names» 
array datas™names 3°72 
simple data=names 3°2 
Data storage allocations 2-2 
Data type conversions 2°72» 8=9 
Date functions 
description of» 8-12 
syntax of» 8-12 
Decimal functions 
description of» 8-13 
examples of» 6-13 
syntax of» 8-13 
Declaration statements» 4-1» 5-1 
declare statements» 52 
define statements 5-9 
formal statements» 5712 
forward procedure statements» 5715 
general information ons 5-1 
procedure statements» 5°17 
segment statements» 5°23 
segmentepage statements» 5°25» 
use declaration statements 5727 
Declare statement» 
description of» 573 
examples of» 575 
syntax of» 52 
Decrement statements» — 
description of» 6728 
examples of» 6=28 
syntax of» 6728 
Default options of file statements» 7-12 
Define statements: 
description of» 5°9 
examples of» 5-10 
syntax of» 5°9 
Device attribute of change statements» 6716 
Device option of file statements» 79 
Display statement» 
description of» 776 
examples of» 776 
syntax of» 776 
DO control statements» 42 
DO forever control statements» 4-2 


three 


INDEX Ccont) 


DO statement» 
description of» 6729 
examples of» 6730 
syntax of» 6729 
Duplicate data*names»s 272 
Dynamic attributes of change statement» 
alleareaSeateopens 6721 
areaeby.cylinders 6-21 
blocks.eper.area» 6720 
buffers» 6719 
devices 6716 
end.of.epage actions 6722 
EUeincremented»s» 6721 
EUespecials 6721 
file.ID» 6716 
label.type» 6716 
Locks» 6719 
multiefile.ID» 6°15 
number of areas» 6720 
optional» 6°19 
pack.ID» 6720 
parity» 6°18 
record.esizes 6719 
records.per.eblocks 6°20 
reels» 6720 
saves 6°19 
singleepack»s 6721 
SReStations 6°22 
translations» 6718 
useeinputeblockings 6722 
variable» 6719 
End.-ofepage action attribute of change statements» 6°22 
Endeofepage action option of file statement» 77-14 
EUeincremented attribute of change statement» 6721 
EUeincremented option of file statement» 7713 
EU.especial attribute of change statements» 6°21 
EU.special option of file statements» 7°13 
Evaluation of an expression variables 3°5 
Executable statements» 
array page types 672 
assignments» 6=3 
bumps 6711 
case» 6°13 
changes» 6°15 
clears 6°23 
conditional inclusions 6724 
conditional page» 6726 
conditional symbol» 6727 
decrements 6728 
DO» 6729 
FINI» 6°32 
general information ons 671 
IF» 6°33 
library» 6736 


four 


INDEX Ccont) 


null» 6737 
procedure call» 6738 
returns 6740 
reverse.stores 6742 
stop» 6°43 
undo» 6744 
Zip» 6746 
Expression types» 376 
arithmetic» 3-6 
fixed arithmetic» 376 
functions 3°8 
logical» 3-8 
non=fixed arithmetics 3-6 
relational or conditional» 3°77 
Expressions» 
data names ins 3-2 
format of» 3-1 
operator precedence ins 3°5 
types of» 376 
variables ins 373 


File.-ID attribute of change statements» 6716 
File statements 7-7 
description of» 778 
examples of» 778» 7710» 7-11 
syntax of» 7-7 
FINI statement» 
description of» 6732 
syntax of» 6°32 
Fixed arithmetic expressions» 3°6 
Fixed data types 2-1 
Formal parameters» 276 
Formal statements 
description of» 5°12 
examples of» 5°13 
syntax of» 5°12 
Format of expressions 3-1 
Forms option of file statements» 7710 
Forward procedure statement» 
description of» 515 
‘examples of» 5716 
syntax of» 5°15 
Function expressionss 3°8 
Function procedures 2°7 
Funct ions» 
baseeregisters 8~2 
binary» ee3 
cases 8=4 
Cats» 85 
converts 8-7 
dates 8-12 
decimal» 8=13 
general information ons 8-1 
hexesequenceenumbers 8714 


five 


if» 8-15 


INDE X 


Language characteristics of» 


Length» 8-16 


Limiteregisters 8717 


memory size» 8718 
mods» 8719 
nameeofedays 8720 


search.elinked.list» 


B= 21 


sequenceenumbers 8722 


subbits» 8°23 
substrs 8°25 
swaps 8°27 

times 8728 
todaysedates 8-29 


Hexesequenceenumber functions 


description of» 8-14 


example of» 8714 
syntax of» 8-14 


If control statements 4-2 


If functions 


description of» 8=15 


examples of» 8715 
syntax of» 8-15 
IF statement» 


description of» 6733 


examples of» 6734 
syntax of» 6733 


Input/output statements» 


accepts» 772 


Cel 


access.efilee-informations 723 


closes 7-4 
display» 776 
file» 7=7 


general information ons 771 


opens 7715 

reads 7717 
receives 7719 
search.directory» 
seeks 7°22 

sends 7°23 

Skip» 7°24 

spaces 7725 
writes 7-27 


Invocation of procedures» 


7-20 


279 


Key words in metalanguages 1°*2 


Label.type attribute of change statements 


(cont) 


76 


Label.type option of file statement» 


Language characteristics» 


basic symbols» 13 
functionss 1°76 


six 


' at 


6°16 


INDEX Ccont) 


general information ons 171 
Language statement types» 175 
metalanguages 11 
reserved wordss 175 
UPL procedure formats in1 
UPL program formats 171 
UPL properties» 1-1 
Language statement types» 175 
Length functions 
description of» 8-16 
examples of» 8-16 
syntax of» 8716 
Lexicographic level» 2-8 
Library statement» 
description of» 6736 
syntax of» 6736 
Limiteregister function» 
description of» 817 
syntax of» 8-17 
Literal variables 374 
Lock attribute of change statement» 6719 
Lock option of file statements» 7711 
Logical expressions» 3°78 
Logical operator uSage»s 378 
Lowercase words in metalanguages i=2 


Memory size functions 
description of» 8718 
syntax of» 68718 
Metalanguages i1-=1 
braces in» 12 
brackets ins 172 
consecutive periods ins 172 
key words ins 1°72 
lower=case words ins 172 
period ins 172 
type Clength) ins 172 
Mod functions 
description of» 8719 
example of» 8719 
syntax of» 8-19 
Mode option of file statements» 7-il 
Multiefile~ID attribute of change statements» 6715 


Nameeofeday functions 
description of» 8-20 
syntax of» 8=20 
Non=fixed arithmetic expressionss 3°76 
Null statement» 
description of» 6°37 
examples of» 6737 
syntax of» 6737 
Number.of.areas attribute of change statement» 6720 


seven 


INDEX Ccont) 


Open option of file statements» 7712 
Open statements 

descrirction of» 7"15 

examples of» 7716 

syntax of» 7°15 
Operator precedence in expressionss 3°5 
Optional attribute of change statement» 6°19 
Optional option of file statements 7-11 


Pack.eID attribute of change statement» 620 
Pack.ID option of file statements 7°12 
Parameters» 

actuals 225 

formals 2-6 
Parameters to proceduress 2°*5 
Parity attribute of change statements» 6°18 
Pass*by"name procedures 276 
Passsbysvalue procedures 276 
Period in metalanguages 172 
Procedurescall statement» 4-1» 6738 

description of» 6°38 

examples of» 6738 

syntax of» 6738 
Procedure invocations 225 
Procedure statements 5°17 

description of» 5°19 

examples of» 5721 

syntax of» 5°17 
Procedure types» 

function procedures 27 

regular procedures 2°77 
Proceduress 274 

actual parameters» 275 

formal parameters» 276 

parameters to proceduress 2°5 

pass™bysnames 276 

passsbysvalues 2°76 

procedure invocations 2°5 


Read statement» 

description of» 7717 

examples of» 7718 

syntax Of» 7°17 
Receive statement» 

description of» 7°19 

syntax of» 7-19 
Record.esize attribute of change statements» 6°19 
Records option of file statements» 7711 
Recordseper.eblock attribute of change statement» 6°20 
Reel attribute of change statement» 620 
Reel option of file statements» 7712 
Regular procedures 2°77 
Relational or conditional expressions 3-7 
Replacements 2°3 


eight 


INDEX Ccont) 


Reserved wordss 1°*5 

Return statement» 
description ofs 6-40 
examples of» 6°40 
syntax of» 6740 

Reverse.estore statement» 
description of» 6°42 
examples of» 6742 
syntax of» 6742 


Save attribute of change statement» 6719 
Save option of file statements 7-11 
Scopes 2°79 * 
Searchedirectory statement» 
description of» 7°20 
syntax of» 7°20 
Searchelinked-elist functions 
description of» 8-21 
syntax of» 8=2i1 
Seek statement» 
description of» 7°22 
examples of» 7722 
syntax ofs 7°22 
Segmentepage statement » 
description of» 5°25 
examples of» 5-25 
syntax of» 5725 
Segment statement» 
description of» 5-23 
examples of» 5°23 
syntax of» 5°23 
Send statement» 
description of» 7723 
syntax ofs 7723 
Sequenceenumber functions 
description of» 8=22 
example of» 8-22 
syntax of» 8=22 
Simple datasnames 32 
Single.pack attribute of change statements 6-721 
Singleepack option of file statements 7°13 
Singlespass compilers 274 
Skip statement» 
description of» 7724 
examples of» 7-24 
syntax of» 7°24 
Space statement >» 
description of» 7-25 
examples of» 7°25 
syntax of» 7°25 
SRestation option of file statement» 7-14 
Statements» 
assignment statements 4=3 
control statements» 4=1 


nine 


INDEX Ccont) 


declaration statements» 4-1 
general information ons 4=1 
Stop statement» 
description of» 6743 
syntax of» 6743 
Subbit functions 
description of» 8=23 
examples of» 8724 
syntax of» 8-23 
Substr functions 
description of» 8725 
examples of» 8726 
syntax of» 8725 
Substrings of datactnamess 353 
Substrings variables 3-5 
Symbols» basics 173 
Swap functions 
description of» 827 
examples of» §$°27 
syntax of» 8=27 


Time functions 
description of» 8728 
syntax Of» 87-28 
Today'*s.edate functions 
description of» 8="29 
syntax of» 8-29 
Translation attribute of change statement» 6718 
Type Clength) in metalanguages 1°2 


Undo statement», 
description of» 6=44 
examples of» 6744 
syntax of» 6744 
UPL procedure formats» 1-1 
UPL program format» i-1 
UPL properties» 1-1 
Use declaration statement» 
description of» 5727 
examples of» 5727 
syntax of» 5=27 
Useeinputeblocking attribute of change statements 6722 
Usee-inputeblocking option of file statements» 7°13 


Value function procedure call variables 3-4 
Variable attribute of change statements 6°19 
Variable option of file statements» 7-11 
Variables» 373 

datasname values» 374 

evaluation of an expressions 3°5 

Literal» 374 

substringss 3°5 

value function procedure calls 3-4 


ten 


Write statement» 
description of» 7-27 
examples of» 7°28 
syntax of» 7°27 


Zip statement» 
description of» 6746 
examples of» 6746 
syntax of» 6746 


INDEX Ccont) 


eleven 


